Сохранить изменения, сделанные в блестящей таблице данных при использовании приложения

Question

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

У меня есть фрейм данных, в который я добавил 3 новых столбца с selectinputs и флажками для каждой ячейки. Пользователь может выбрать значения, используя их.

shinyServer(function(input, output, session) {

observeEvent(input$datafile_1,{

mapping_file <<- read.csv(input$datafile_1$datapath,stringsAsFactors = FALSE)

output$mytable1 <- renderDataTable({data.table(mapping_file)},
    options = list(
      dom='t',
      ordering=F,
      lengthChange = TRUE,
      pageLength=20,
      rownames= FALSE,
      initComplete = JS(
        "function(settings, json) {",
        "$(this.api().table().header()).css({'background-color': '#00338d', 'color': '#fff'});",
        "}"),
      autowidth = TRUE
),rownames= FALSE)

DF <- data.frame(Fields = colnames(df_master_file),stringsAsFactors = FALSE)

# helper function for making checkbox
shinyInput = function(FUN, len, id, ...) { 
  inputs = character(len) 
  for (i in seq_len(len)) { 
    inputs[i] = as.character(FUN(paste0(id, i), label = NULL, ...)) 
  } 
  inputs 
}

output$mytable2 = DT::renderDataTable({
  data.frame(DF,Mapping=shinyInput(selectInput,nrow(DF),"mapping_",
                                   choices=c("",colnames(mapping_file)),width="200px"),
                Filter=shinyInput(checkboxInput,nrow(DF),"filter_",
                                  width="50px"),
                Color=shinyInput(checkboxInput,nrow(DF),"color_",
                               width="50px")
             )
}, selection='none',server = FALSE, escape = FALSE, options = list( 
  dom = 't',
  paging=TRUE,
  preDrawCallback = JS('function() { 
  Shiny.unbindAll(this.api().table().node()); }'), 
  drawCallback = JS('function() { 
  Shiny.bindAll(this.api().table().node()); } '),
  ordering=F,
  lengthChange = TRUE,
  pageLength=37,
  rownames= FALSE,
  initComplete = JS(
    "function(settings, json) {",
    "$(this.api().table().header()).css({'background-color': '#00338d', 'color': '#fff'});",
    "}")
),rownames= FALSE )

})

Я хочу сохранить данные после того, как пользователь сделал выбор в таблице данных, чтобы я мог в дальнейшем использовать их для анализа.

Answer 1

Я думаю, что это то, что вам нужно, но я не уверен на 100%.

bookmarkButton()
shinyApp(ui = ui, server = server, enableBookmarking = "url")

Эти две функции позволяют вам сохранять «состояние» приложения, которое позволяет вам делиться выбранной информацией.с другими пользователями для последующего анализа.

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30),
         bookmarkButton()
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
}

# Run the application 
shinyApp(ui = ui, server = server, enableBookmarking = "url")