当 R Shiny App 在 Linux 服务器上运行时下载文件

Question

我正在开发一个 Shiny 应用程序，它根据用户输入创建一个 URL，并使用 browseURL() 函数运行该 URL。该 URL 下载一个 csv 文件。该应用程序需要驻留在 Linux 服务器上，当我尝试从服务器运行它时，它一直给我一个错误。当我在我的机器上运行它时，它会打开 Google Chrome（这是我的默认网络浏览器）并将 csv 文件下载到默认的“下载”文件夹中（这是我期望的）。下面是我正在尝试做的简化版本。有人可以帮我弄清楚为什么它可以在我的机器上运行，但不能在 Linux 服务器上运行吗？我刚开始这个项目，我对 Linux 服务器一无所知。错误看起来像 -

/usr/bin/xdg-open: 778: /usr/bin/xdg-open: www-browser: not found
/usr/bin/xdg-open: 778: /usr/bin/xdg-open: links2: not found
/usr/bin/xdg-open: 778: /usr/bin/xdg-open: elinks: not found

非常感谢任何帮助。

library(shiny)
library(shinyWidgets)


ui <- fluidPage(
   
   # Application title
   titlePanel("Testing File Download on Linux Server"),
   
   
   sidebarLayout(
      sidebarPanel(
         textInput("SID","Specify SIDs", value = ""),
         actionBttn("goButton","Go!",color = "default",style = "unite",size = "lg")
      ),
      
      mainPanel()
      
           
   )
)


server <- function(input, output,session) {
 ts_info<-eventReactive(input$goButton,{
   TS_url<-paste("http://xyzserver&request=getList&station_no=",input$SID,"&format=csv&downloadfilename=testingdownload",sep="")

   return(TS_url)   
   

 })
 observe({
   browseURL(ts_info())
 }) 
   
}

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

Answer 1

通过使用 browseURL，您要求在服务器上打开一个 Web 浏览器，这显然是无法做到的，因为它不是这样做的地方。浏览器必须在您的计算机上启动，而不是在服务器上启动。

您可以将 url 格式化并提供为 uiOutput

sidebarPanel(
         textInput("SID","Specify SIDs", value = ""),
         actionBttn("goButton","Go!",color = "default",style = "unite",size = "lg"),
         uiOutput("dlLink")
      ),

output$dlLink <- renderUI(tags$a(href=tsInfo(),"Download"))