使用rstudioapi::selectDirectory从终端错误运行app

Question

我想从终端上启动一个闪亮的应用程序。我的应用程序有一个按钮，当按下该按钮时，会打开一个窗口来选择带有函数rstudioapi::selectDirectory()的文件夹。

但是，当我单击该按钮时，会得到以下错误：

Warning: Error in : RStudio not running
  76: stop
  75: verifyAvailable
  74: callFun
  73: rstudioapi::selectDirectory
  72: observeEventHandler [D:/Users/folder/Shiny/app.R#12]
   1: shiny::runApp

app.R

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

  actionButton("folder", "Choose folder")

)

server <- function(input, output) {
  observeEvent(input$folder, {
    path.file <- rstudioapi::selectDirectory()
    print(path.file)
  })

}

# Run the application
shinyApp(ui = ui, server = server)

终端上的

$ "Rscript.exe" -e "shiny::runApp('Shiny/app.R')"
Loading required package: shiny
Warning: package 'shiny' was built under R version 3.5.3

Listening on http://127.0.0.1:6283
Warning: Error in : RStudio not running
  76: stop
  75: verifyAvailable
  74: callFun
  73: rstudioapi::selectDirectory
  72: observeEventHandler [D:/Users/folder/Shiny/app.R#12]
   1: shiny::runApp

Answer 1

您正在运行的是一个闪亮的进程，而不是RStudio。