Как я могу добавить возможность загрузки в свое приложение

Question

Пожалуйста, изображение У меня есть это приложение

library(shiny)
library(DT)
library(shinydashboard)

my_data <- head(mtcars)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(DT::dataTableOutput("table1"))
    )
  )
)

server <- function(input, output) {
  output$table1 <- DT::renderDataTable({
    datatable(my_data)
  })  
}

shinyApp(ui, server)

Я хочу, чтобы люди могли загружать визуализированную таблицу из моего приложения, но я не знаю, как добавить функцию загрузки и кнопку загрузки в мое приложение; Любая помощь?

Answer 1

server <- function(input, output){

  output[["table1"]] <- renderDT({
    datatable((my_data), editable = "cell", extensions = "Buttons", 
              options = list(
                dom = "Bfrtip",
                buttons = list(
                  "csv"
                )
              ))
  })

  observeEvent(input[["table_cell_edit"]], {
    cellinfo <- input[["table_cell_edit"]]
    dat <<- editData(dat, input[["table_cell_edit"]], "table1")
  })


}