继续shiny内容更新

前天提到的是 动态网络的构建 @jywahaha/shiny

今天记录一下，其中几个控件，以及自己数据如何表格展示。

在shiny中，有一些例子（做好的网页）以及很多控件，这个对于我这个门外汉，十分的友好。

https://shiny.rstudio.com/gallery/

这里在自己构建的网页中用了 “更新”以及“下载”两个控件。

在UI中，在所需要的地方输入

actionButton("update", "Update View") 


downloadButton("downloadData", "Download")

"update"与"downloadData"是在sever中需要配置的共有ID，相当于一个桥梁，连接了UI与sever（具体的输入文件，在sever中导入）

"Update View"与"Download"是控件的名字，可以自定义。

在sever中的配置

#更新的控件
  datasetInput <- eventReactive(input$update, {      #update 与 UI中一致
    switch(input$dflist,                 #这里，以及下面的三行都是自己的文件导入，并且赋予一个名字
           "rock" = dflist$rock,
           "pressure" = dflist$pressure,
           "cars" = dflist$rock)
  }, ignoreNULL = FALSE)

#下载的控件
  output$downloadData <- downloadHandler(
    filename = function() {
      paste(input$dflist, ".csv", sep = "")      
    },
    content = function(file) {
      write.csv(datasetInput(), file, row.names = FALSE)     #datasetInput 这个是下载的输入源，更新的结果就是这里下载的输入源
    }
  )

这里，我放入了三个文件，是在R中预先读取的（这里尝试了好久，才搞明白，该如何导入自己的表格，只需要预先读入就行。