r - 您可以使用 R 的原生数据编辑器在 Shiny 中编辑 csv 文件吗？

Question

与 R 中的编辑功能非常相似，我想在 Shiny 中手动更改数据框。我去过 Shiny 的网站

http://shiny.rstudio.com/gallery/datatables-options.html

但是，我还没有找到可以手动更改数据的地方。

Answer 1

你可以用shinysky做你想做的事包裹。它提供按需编辑表格的功能。下面是一个包含 mtcars 数据集的简单示例，您可以在其中更改表格内容，然后下载您在 session 期间引入的更新。您可以轻松添加文件输入以自己读取.csv 文件

rm(list = ls())
library(shiny)
library(shinydashboard)
library(shinysky)

ui <- dashboardPage(
  dashboardHeader(title = "How to edit a table"),
  dashboardSidebar(sidebarMenu(id = "tabs",menuItem("Menu Item 1", tabName = "one", icon = icon("dashboard"))
  )),
  dashboardBody(
    tabItems(tabItem(tabName = "one",hotable("hotable1"),downloadButton('downloadData', 'Download')))
    ))

server <- function(input, output) {

  previous <- reactive({mtcars})
  sample_data <- reactive({

    if(is.null(input$hotable1)){return(previous())}
    else if(!identical(previous(),input$hotable1))
    {
      sample_data <- as.data.frame(hot.to.df(input$hotable1))
      sample_data
    }
  })
  output$hotable1 <- renderHotable({sample_data()}, readOnly = F)
  output$downloadData <- downloadHandler(filename = function() {paste(Sys.time(), '- My New Table.csv', sep='') },content = function(file) {write.csv(sample_data(), file, row.names = FALSE)})
}
shinyApp(ui, server) 

下载的文件如下所示: