代码之家 › 专栏 › 技术社区 › Luis Leal

在服务器中使用system()运行系统命令

shiny-server shiny r

0

Luis Leal · 技术社区 · 7 年前

2 回复 | 直到 7 年前

1

0

ismirsehregal 7 年前

跑步 system() 闪亮的;闪亮服务器)工作正常:

library(shiny)

ui <- fluidPage(
textOutput("dirOut")
)

server <- function(input, output) {

  SysName <- Sys.info()['sysname']

  if(SysName=="Linux"){
    dir <- system("pwd", intern = TRUE)
  } else if(SysName=="Windows"){
    dir <- system("cmd cd", intern = TRUE)
  } else {
    dir <- paste("Error: No cmd given for", SysName)
  }

   output$dirOut <- renderText({
     dir
   })
}

shinyApp(ui = ui, server = server)

2

0

Luis Leal 7 年前