selectInput :基于先前的selectInput重置所选值

Question

在这个问题上有几个问题，包括here，但我仍然不确定我需要修改什么才能正确处理这个问题。

selectInput选项按预期工作，但当我更改第二个selectInput时，它暂时更改为所需的选择，然后自动返回到第一个筛选的选择。

例如，如果为Variable 1选择了“齿轮”，那么Variable 1 choices将正确显示"3、4、5“以确定可能的齿轮选择。如果我选择"5“的齿轮，它会出现，然后回到齿轮"3”作为一个选择。我不知道如何防止这种反应行为。

下面是一个使用mtcar内置数据集的简单的可重复示例：

library(tidyverse)
library(shiny)



# Variables interested in selecting
my_vars <- c("cyl", "gear", "carb")



# UI
ui <- fluidPage(
  
  # Title
  titlePanel("Reprex"),
  
  # Sidebar 
  sidebarLayout(
    sidebarPanel(
                 selectInput("sel_1",
                             "Variable 1",
                             choices  = my_vars,
                             selected = my_vars[[1]],
                             multiple = FALSE
                 ),
                 selectInput("sel_2",
                             "Variable 1 choices",
                             choices  = unique(mtcars[[ my_vars[[1]] ]]),
                             multiple = FALSE
                 )
    ), # sidebarPanel close
    
    # Plot
    mainPanel(
      plotOutput("plot_out")
    )  # mainPanel close
  )    # sidebarLayout close
)      # UI close




# Server
server <- function(input, output, session) {
  
  output$plot_out <- renderPlot({
    
    # Assign inputs
    sel_1 <- input$sel_1
    sel_2 <- input$sel_2
    
    
    # Make drop-down choice of sel_2 dependent upon user input of sel_1
    # *** Must put "shiny::observe" instead of "observe" since "observe" is masked by the Tidy infer package ***
    shiny::observe({
      updateSelectInput(session,
                        "sel_2",
                        choices = sort(unique(mtcars[[sel_1]]))
                        )
    })
    
    
    
    # Data to plot
    my_data <- mtcars %>% 
      filter(.data[[sel_1]] == sel_2)

    
    
    # Plot
    p <- ggplot(my_data, aes(x = factor(.data[[sel_1]]), y = hp)) + geom_point()
    p
    
  })
}




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

Answer 1

那是因为你的观察者在renderPlot里面。这里没什么大不了的。

server <- function(input, output, session) {

  # Make drop-down choice of sel_2 dependent upon user input of sel_1
  observeEvent(input$sel_1, {
    updateSelectInput(session,
                      "sel_2",
                      choices = sort(unique(mtcars[[input$sel_1]]))
    )
  })
  
  output$plot_out <- renderPlot({
    
    # Assign inputs
    sel_1 <- input$sel_1
    sel_2 <- input$sel_2
    
    # Data to plot
    my_data <- mtcars %>% 
      filter(.data[[sel_1]] == sel_2)
    
    # Plot
    ggplot(my_data, aes(x = factor(.data[[sel_1]]), y = hp)) + geom_point()

  })
}

这里不需要observeEvent而不是observe，因为input$sel_1是观察者中唯一的反应性值，但是我发现observeEvent更易读。

此外，避免加载tidyverse。装了一大堆你不需要的包裹。在这里，dplyr和ggplot2就足够了。