2014-09-19 55 views

回答

1

不看源代码。然而,你可以定义自己的函数:

runShinyBuilder <- function (...) { 
    sb_path <- system.file(package = "ShinyBuilder") 
    dir_mode <- as.numeric(as.character(file.info(paste0(sb_path, 
                 "/dashboards"))$mode)) 
    if (dir_mode < 755) 
    Sys.chmod(sbd_path, mode = "0755") 
    shiny::runApp(sb_path, ...) 
} 

现在呼吁

runShinyBuilder(port = 5678) 

应该打开它在端口5678例如。