3

我设置了一个闪亮的应用程序,它检查 GET 字符串并在id存在与参数匹配的文件时显示链接。现在我想做的是,如果在 URL 中检测到有效查询,则将页面直接重定向到下载文件。有谁知道要插入的语法,例如<meta http-equiv=...>来自 server.R 的标头?

动机:我希望能够从指向 Shiny 应用程序的 URL 将文件直接下载到 R 控制台会话中。因此,非极客用户使用 Shiny 指定他们的初步统计模型,然后统计学家将其下载到他们通常的工作环境中,并在剩下的过程中使用它。我需要在服务器端执行此操作,而不是使用 javascript 之类的东西,window.location因为客户端不支持 javascript。

这是服务器.R

shinyServer(function(input, output, clientData) {
  query <- reactive(parseQueryString(clientData$url_search));
  revals <- reactiveValues();

  ## obtain ID from GET string 
  observe({revals$id <- query()$id}); 

  ## alternatively obtain ID from user input if any
  observe({input$submitid; if(length(id<-isolate(input$manualid))>0) revals$id <- id;}); 

  ## update filename, path, and existance flag
  observe({ revals$filename <- filename <- paste0(id<-revals$id,".rdata");
    revals$filepath <- filepath <- paste0("backups/",filename);
    revals$filexists <- file.exists(filepath)&&length(id)>0; });

  ## update download handler
  output$download <- {downloadHandler(filename=function() revals$filename, content=function(oo) if(revals$filexists) system(sprintf('cp %s %s',revals$filepath,oo)))};

  ## render the download link (or message, or lack thereof)
  output$link <- renderUI({
    cat('writing link widget\n');
    id<-revals$id;
    if(length(id)==0) return(div(""));
    if(revals$filexists) list(span('Session download link:'),downloadLink('download',id)) else {
      span(paste0("File for id ",id," not found"));}});
});

这是ui.R

shinyUI(pageWithSidebar(
          headerPanel(div("Banner Text"),"Page Name"),
          sidebarPanel(),
          mainPanel(
            htmlOutput('link'),br(),br(),
            span(textInput('manualid','Please type in the ID of the session you wish to retrieve:'),actionButton('submitid','Retrieve')))));

更新:

在尝试@jeff-allen 的建议时,我遇到了另一个问题:如何提取文件被复制到下载的文件系统路径并将其转换为有效的 URL?通过在我的本地主机上使用 shell 脚本和 http 配置设置,这可能是可能的,但是如何以一种不需要超级用户权限并且尽可能本地化的便携方式来做到这一点?

4

1 回答 1

4

动机:我希望能够从指向 Shiny 应用程序的 URL 将文件直接下载到 R 控制台会话中。

...也就是说,这相当于尝试从闪亮的应用程序提供静态内容的一种非常迂回的方式。结果我根本不需要重定向或使用downloadHandler。正如Shiny 论坛上的这篇文章所说,我在本地www目录中创建的任何文件都可以访问,就好像它位于我的应用程序目录的根目录中一样。即,如果我有我的应用程序,save.image(file='www/foo.rdata')那么如果应用程序本身位于 [http://www.myhost.com/],我将能够从 [http://www.myhost.com/appname/foo.rdata] 访问它应用名称/]

于 2013-09-25T20:00:46.950 回答