R 闪亮 - 在 selectInput 中保存选择的值

Question

我有 10 个“编辑”操作按钮。在每个“编辑”操作按钮上出现三个 selectInputs。单击 selectInputs 下方的“保存”按钮后，我想记住选定的值。如果我转到第 2 行 -> 单击“编辑”-> 选择值 -> 单击“保存”并返回第 1 行，它不记得第 1 行中先前选择的值。

所以我想对“保存”按钮进行两个操作：

• 存储给定“行”的选定值（因此，当我再次单击同一个编辑按钮时，我将看到以前选择的值）

• 在我点击保存按钮后，让所有 selectInputs 消失

  图书馆（闪亮）

  ui <- shinyUI(fluidPage(
  
     titlePanel("Update Select Inputs"),
  
        mainPanel(
          tags$head(tags$script(HTML("$(document).on('click', '.needed', function () {
                               Shiny.onInputChange('last_btn',this.id);
                                     });"))),
          column(width = 6,
           uiOutput('ValuesAndButtons')),
           column(width = 6,uiOutput('Details'))
        )
     )
  )
  
  server <- shinyServer(function(input, output) {
  
    output$ValuesAndButtons <- renderUI({
  
        lapply(
          c(1:10),
          function(i){
            fluidRow(
              column(
                width = 4,
                tags$span(i)
              ),
              column(
                width = 3,
                tags$button(
                  type = "button",
                  id = paste0('ActionButton', i),
                  class="btn action-button needed",
                  "Edit"
                )
              )
            )
          }
        )
    })
  
    output$Details <- renderUI ({
  
      req(input$last_btn)
  
      fluidRow(
        lapply(
          c(1:3),
          function(i){
            fluidRow(
              fluidRow(
                column(
                  width = 5,
                  tags$span(i)
                ),
  
                column(
                  width = 5,
                  selectInput(
                    paste0("Details", i), 
                    label = NULL, 
                    choices = c("","a","b","c"),
                    selected = ""
  
                  )
                )
              )
            )
  
          }),
        fluidRow(
          tags$button(
            type = "button",
            id = "Save",
            class = "btn action-button",
            href = "#",
            "Save"
          )
        )
      )
    })
  
  })
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  

Answer 1

您可以通过将值存储到 reactivevValues 中来做到这一点，值仅存储一个 session

library(shinyjs) # needed for hide and show
ui <- shinyUI(fluidPage(

  titlePanel("Update Select Inputs"),

  mainPanel(
    useShinyjs(),
    tags$head(tags$script(HTML("$(document).on('click', '.needed', function () {
                               Shiny.onInputChange('last_btn',this.id);
                               });"))),
        column(width = 6,
               uiOutput('ValuesAndButtons')),
    column(width = 6,hidden(wellPanel(id="det",
                                      lapply(1:3,function(i){
                                        fluidRow(
                                          selectInput(
                                            paste0("Details", i), 
                                            label = i, 
                                            choices = c("","a","b","c"),
                                            selected = ""

                                          )
                                        )

                                      }),
                                      fluidRow(
                                        actionButton("Save","Save")
                                      )
    ))
    ))
  )
)

server <- shinyServer(function(input, output,session) {
  saved_values=reactiveValues(data=NULL)

  output$ValuesAndButtons <- renderUI({

    lapply(1:10,function(i){
      fluidRow(
        column(
          width = 4,
          tags$span(i)
        ),
        column(
          width = 3,
          actionButton(paste0('ActionButton', i),"Edit",class="needed"  )
        )
      )
    }
    )
  })
  observe({
    if(!is.null(input$last_btn)){
      observeEvent(input[[input$last_btn]],{
        shinyjs::show("det")
      }
                   )

    }

  })
  observeEvent(input$last_btn,{

    ll<-saved_values[[input$last_btn]]
    shinyjs::show("det")

    if(!is.null(ll) ){

      for(i in 1:length(ll)){
        updateSelectInput(session = session,inputId = names(ll)[[i]],selected = ll[[i]])

      }
    }else{
      shinyjs::reset("det")
    }

  })


  observeEvent(input$Save,{

    saved_values[[input$last_btn]]=lapply(names(input)[which(substring(names(input),1,7)=="Details")],function(i){
      input[[ i]]
    })
    names(saved_values[[input$last_btn]])=names(input)[which(substring(names(input),1,7)=="Details")]
    shinyjs::hide("det")
  })


})

# Run the application 
shinyApp(ui = ui, server = server)