如何使滑块输入独立于内部的反应变量？

Posted 2023-03-24

【中文标题】如何使滑块输入独立于内部的反应变量？

【英文标题】：How to make the sliderinput independant of the reactive variables inside?

【发布时间】：2021-09-12 14:15:44

【问题描述】：

在这个闪亮的应用程序中，3 个 selectInputs 是链接的，如果我们在第一个 selectInput 中选择一个国家，选择的国家不会出现在第二个中，第三个也是一样的。 未选择的 2 个国家出现在滑块输入的标签中（反应变量） 当您盯着滑块输入，并在上面的 selectInputs 中修改任何国家/地区时，sliderInput 不会保留先前选择的值。

我的问题是，如何保持滑块输入独立于修改 selectInput？感谢您的帮助

ui <- fluidPage(
  sidebarLayout(
    
    sidebarPanel(
      uiOutput("BoxLPbilan"),
      uiOutput("BoxLPX"),
      uiOutput("BoxLPY"),
      uiOutput("Balance_country1"),
      uiOutput("Balance_country2")
    ),
    mainPanel (
      
    )
  )
)

server <- function(input, output) 

  countries<-reactive(
    c('FR','DE','BE','NL','AT')
  )
  output$BoxLPbilan <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countrybilan",label = tags$span(style="color: blue;","Select the balance country") ,countries())
  )
  liste_paysX <- reactive (
    
      w=countries()
      sort(w[!w %in% input$countrybilan])
    )
  
  output$BoxLPX <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countryX", label = tags$span(style="color: red;","Select the country of the X axis"),liste_paysX())
  )
  
  liste_paysY <- reactive (
    
      w=countries()
      w=(w[!w %in% input$countrybilan])
      sort(w[!w %in% input$countryX])
    )
  
  output$BoxLPY <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countryY", label = tags$span(style="color: red;","Select the country of the Y axis"),liste_paysY())
  )
  
  remaining_countries <- reactive (
    
      w=countries()
      w=(w[!w %in% input$countrybilan])
      w=(w[!w %in% input$countryX])
      sort(w[!w %in% input$countryY])
      
    )

  output$Balance_country1 <- renderUI(
    sliderInput(inputId = "remaining_country1",
                paste(remaining_countries()[1]," balance"),
                min = -10000,
                max = 10000,
                step = 100,
                value = 0)
    
  )
  
  output$Balance_country2 <- renderUI(
    
    sliderInput(inputId = "remaining_country2",
                paste(remaining_countries()[2]," balance"),
                min = -10000,
                max = 10000,
                step = 100,
                value = 0)
    
  )
  
 


shinyApp(ui = ui, server = server)
    

【问题讨论】：

所以您在 3 个selectInput 中选择了 3 个国家/地区并希望在此之后修复 sliderInput 中的两个国家/地区？

是的，但是如果我们修改 selectInput 中选择的 3 个国家，sliderInput 中的两个国家会改变。如果我在 selectInput 中修改 3 个国家/地区，我想要得到的是将滑块输入保持在选定的值中谢谢您的帮助

对不起，我还是不清楚。你能向我解释一下预期的流程吗？首先我们在 selectInput 中选择 3 个国家。下一步是什么？

下一步：我们在滑块输入中选择值，然后我们更改一开始选择的国家，因此滑块输入不保留选择的值。无论修改的国家/地区如何，我都希望将 sliderInput 保留在所选值上

如果我们从sliderInput的标签中删除反应变量我们可以做到，但我想保留反应变量并让sliderInput独立于它谢谢

【参考方案1】：

您可以使用以下技巧 -

创建一个reactiveValues 来存储sliderInput 的当前值，并将sliderInput 的默认值作为存储值传递。

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    
    sidebarPanel(
      uiOutput("BoxLPbilan"),
      uiOutput("BoxLPX"),
      uiOutput("BoxLPY"),
      uiOutput("Balance_country1"),
      uiOutput("Balance_country2")
    ),
    mainPanel (
      
    )
  )
)

server <- function(input, output) 
  
  rv <- reactiveValues(val1 = 0, val2 = 0)
  
  countries<-reactive(
    c('FR','DE','BE','NL','AT')
  )
  output$BoxLPbilan <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countrybilan",label = tags$span(style="color: blue;","Select the balance country") ,countries())
  )
  liste_paysX <- reactive (
    
      w=countries()
      sort(w[!w %in% input$countrybilan])
    )
  
  output$BoxLPX <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countryX", label = tags$span(style="color: red;","Select the country of the X axis"),liste_paysX())
  )
  
  liste_paysY <- reactive (
    
      w=countries()
      w=(w[!w %in% input$countrybilan])
      sort(w[!w %in% input$countryX])
    )
  
  output$BoxLPY <- renderUI(
    # as.character: to get names of levels and not a numbers as choices in case of factors
    selectInput("countryY", label = tags$span(style="color: red;","Select the country of the Y axis"),liste_paysY())
  )
  
  remaining_countries <- reactive (
    
      w=countries()
      w=(w[!w %in% input$countrybilan])
      w=(w[!w %in% input$countryX])
      sort(w[!w %in% input$countryY])
      
    )
  
  
  output$Balance_country1 <- renderUI(
    sliderInput(inputId = "remaining_country1",
                paste(remaining_countries()[1]," balance"),
                min = -10000,
                max = 10000,
                step = 100,
                value = rv$val1)
    
  )
  
  output$Balance_country2 <- renderUI(
    
    sliderInput(inputId = "remaining_country2",
                paste(remaining_countries()[2]," balance"),
                min = -10000,
                max = 10000,
                step = 100,
                value = rv$val2)
    
  )
  
  
  observe(
    req(input$remaining_country1, input$remaining_country2)
    rv$val1 <- input$remaining_country1
    rv$val2 <- input$remaining_country2
  )
  


shinyApp(ui = ui, server = server)

【讨论】：

@RTIMIAnass 很高兴为您提供帮助！随意点击左侧的复选标记接受答案。每个帖子只能接受一个答案。参考 - ***.com/help/someone-answers