下載閃亮的Tabpanel活動數據表

Question

我是一個閃亮的新用戶，在創建自己的閃亮的應用程序時遇到了一些問題。在此處，這些代碼段已精簡，以說明我當前的方法。

#ui.r
shinyUI(fluidPage(
sidebarLayout(
mainPanel(
  tabsetPanel(
    tabPanel(
      selectInput("HM", "hour means",
                  c("A" = 1,
                    "B" = 2,
                    "C" = 3,
                    )),
      dataTableOutput('HOUR_MEAN')
    ),
    tabPanel(
      selectInput("DM", "day means",
                  c("A" = 1,
                    "B" = 2,
                    "C" = 3,
                    )),
      dataTableOutput('DAY_MEAN')
    )
  )))))
###server.r
shinyServer(function(input, output) {
  output$HOUR_MEAN<-renderDataTable({
  L<-myfun(mydata)
  a<-input$HM
  L[[1]][[eval(parse(text=a))]]
  })

  output$DAY_MEAN<-renderDataTable({
  L<-myfun2(mydata)
  a<-input$DM
  L[[2]][[eval(parse(text=a))]]
  })

  })

現在，我要選擇的是不同面板和選項卡面板時，下載數據表嗎？ 感謝您的幫助。

Answer 1

嘗試這個

ui部分

fluidRow(  downloadButton('download_hour', 'download data'))) # in a tabitem

服務器部分

 output$download_hour = downloadHandler('mydataoutput.csv', content =    function(file) {
s = input$HOUR_MEAN_rows_all  
write.table(mydata[s, ], file  ,sep=";",row.names = F)
 })