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

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

  •  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 年前

    推荐文章