将DataTable转换为R中的CSV文件

Question

我使用以下代码将Excel文件上传到Shiny R中：

server.r

#reative function to read a table
MDPData<-reactive({
  file1<-input$MDPhistorical
  if(is.null(file1)){return()}
  z<-as.data.frame(read.xlsx(file1$datapath,sheetName = 'Probability Matrix'))      
})
#file info  
output$MDPDataTable<-DT::renderDataTable({
  if(is.null(MDPData())){return()}
  MDPData()
  DT::datatable(MDPData(),extensions = 'Responsive', options = list(pageLength=3), class = 'cell-border stripe', selection = "single")
})

UI.R的相关代码：

fluidRow(
  box(
    title = "Historical Data of different conditions", status = "primary", solidHeader = TRUE,
    collapsible = TRUE,
    DT::dataTableOutput("MDPDataTable")
   )
)

然后，我想将MDPDATATATATAPATALE作为CSV文件保存。我尝试使用write.csv：

write.xlsx(MDPDataTable,'www/probabilitymatrix.csv')

错误如下：

Warning: Error in is.data.frame: object 'MDPDataTable' not found
Stack trace (innermost first):
    42: is.data.frame
    41: write.xlsx
    40: server [C:UsersfoadDesktopDSS JournalNSS ProtorypeNss-28-2-17/server.R#902]
     1: shiny::runApp
Error in is.data.frame(x) : object 'MDPDataTable' not found

Answer 1

它没有工作和错误出现，因为正如Mrflick所说，您的write.xlsx(...)功能必须在反应性对象中。我猜您正在使用ShinyApp并下载data您有一个downloadButton，然后代码看起来像：

ui.r：

downloadButton('download',label='Download data')

server.r：

output$download <- downloadHandler( "probabilitymatrix.csv", content = function(file) { write.xlsx(MDPData(),'www/probabilitymatrix.csv')})