2014-09-19 4 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, ...) 
} 

이제 예를 들어 포트 5678에를 열어야합니다
runShinyBuilder(port = 5678) 

를 호출.