弹出一个闪亮文件对话框 R Shiny 没有闪亮文件按钮答案

【问题标题】：Pop up a shinyFiles dialog R Shiny without a shinyFiles button弹出一个闪亮文件对话框 R Shiny 没有闪亮文件按钮
【发布时间】：2018-06-14 03:06:46
【问题描述】：

我想让我的 Shiny 应用程序中的一个 tabPanel 启动一个 shinyFiles 样式的输入。在这种情况下，我想启动一个 shinySaveButton，但我的数据集中没有 shinySaveButton（通过单击保存图标 [这实际上是一个 tabPanel]）

下面的可重现示例

library(shiny)
library(shinyFiles)

ui <- navbarPage('Test App',id = "inTabset", selected="panel1",
                 tabPanel(title = "", value = "Save", icon = icon("save")),
                 tabPanel(title = "Panel 1", value = "panel1", 
                          h1("Panel1")),
                 tabPanel(title = "Panel 2",value = "panel2",
                          h1("Panel2"))
)

server <- function(input, output, session) {
  values = reactiveValues(tabSelected="panel1")
  observe({
    if (input$inTabset=="Save") {
      updateNavbarPage(session,"inTabset",selected=values$tabSelected)
      #CODE FOR LOADING SHINYFILES DIALOG IN HERE
    } else {
      values$tabSelected<-input$inTabset
    }
  })

}

shinyApp(ui, server)

任何帮助将不胜感激。

【问题讨论】：

供以后参考。我最终遵循groups.google.com/forum/#!topic/shiny-discuss/YonYRdf7IK8 的示例，它在浏览器中下载文件而不是打开对话框。但是，它确实需要您取消阻止弹出窗口

标签： r shiny

【解决方案1】：

解决使用隐藏元素技巧

library(shiny)
library(shinyFiles)
library(shinyjs)

jsCode<-"shinyjs.saveButton=function(){ $('#buttonFileSaveHidden').click(); }"
ui <- fluidPage(
      useShinyjs(),
      extendShinyjs(text = jsCode),
      navbarPage('Test App',id = "inTabset", selected="panel1",
                 tabPanel(title = "", value = "Save", icon = icon("save")),
                 tabPanel(title = "Panel 1", value = "panel1", 
                          h1("Panel1")
                          ),
                 tabPanel(title = "Panel 2",value = "panel2",
                          h1("Panel2"))
      ),
      # HIDDEN BUTTON TO INITIATE THE SAVE
      hidden(shinySaveButton( "buttonFileSaveHidden", 
                       label="", 
                       title="Save as ...",    
                       list('hidden_mime_type'=c("R")),       
                       class='hiddenButton')),
      wellPanel( #ONLY INCLUDED TO DISPLAY OF PATH INFO OF THE CHOICE
        h3('Current save path info'),
        tableOutput('table')
      )
)

server <- function(input, output, session) {
  values = reactiveValues(tabSelected="panel1")

  observe({
    if (input$inTabset=="Save") {
      updateNavbarPage(session,"inTabset",selected=values$tabSelected)
      #CODE FOR LOADING SHINYFILES DIALOG IN HERE
      js$saveButton()
    } else {
      values$tabSelected<-input$inTabset
    }
  })
  shinyFileSave(input, "buttonFileSaveHidden",   session=session, roots=c(wd="~"),  filetypes=c('R') ) #hidden

  # GET THE SAVE PATH CHOICE AND RECORD IT IN fp.dt.rv
  fp.dt.rv<-reactiveVal("")
  observeEvent(input$buttonFileSaveHidden,{
    fp.dt<-parseSavePath(c(wd='~'), input$buttonFileSaveHidden)
    fp.dt.rv(fp.dt) #or just use to immediately write.
  })
  # ONLY TO DISPLAY THE SAVE CHOICE
  output$table <- renderTable(fp.dt.rv())
}

shinyApp(ui, server)

【讨论】：