R闪亮中的相互依赖的输入滑块

Question

我尝试在一个闪亮的应用程序中制作两个相互依赖的输入滑块，但似乎无法正常工作。我计划在一个闪亮的应用程序中使用这种情况，并在这里用一个简化的“半空/满玻璃”示例来说明它，其中一个滑块应该显示玻璃满度和一个空度：

library(shiny)

ui =(pageWithSidebar(
  headerPanel("Glass fullness"),
  sidebarPanel(
    sliderInput("Full", "% water", min = 0, max = 1, value = 0.2),
    #display dynamic UI
    uiOutput("Empty")),
  mainPanel()
))

server = function(input, output, session){

  # make dynamic slider 
  output$Empty <- renderUI({
    sliderInput("Empty", "% air", min=0, max=1, value=1-input$Full)
  })

}

runApp(list(ui = ui, server = server))

我理解value = 0.2 和value=1-input$Full 导致上述代码仅使第二个滑块依赖于第一个滑块而不是相反。我的问题是我想让两者相互依赖。我尝试为 Full 添加一个 uiOutput("Full") 和动态滑块，但没有设法解决循环编码。

以上代码的结果如下：

Glass half empty/full screenshot

非常感谢任何帮助！

Answer 1

您好，在 UI 中定义您的滑块，并在需要时在服务器中更新它们：

library(shiny)

ui =pageWithSidebar(
  headerPanel("Glass fullness"),
  sidebarPanel(
    sliderInput(inputId = "Full", label = "% water", min = 0, max = 1, value = 0.2),
    sliderInput(inputId = "Empty", label = "% air", min = 0, max = 1, value = 1 - 0.2),
    uiOutput("Empty")),
  mainPanel()
)

server = function(input, output, session){

  # when water change, update air
  observeEvent(input$Full,  {
    updateSliderInput(session = session, inputId = "Empty", value = 1 - input$Full)
  })

  # when air change, update water
  observeEvent(input$Empty,  {
    updateSliderInput(session = session, inputId = "Full", value = 1 - input$Empty)
  })

}

shinyApp(ui = ui, server = server)

Answer 2

这是因为在第二个滑块中你有：

sliderInput("Empty", "% air", min=0, max=1, value=1-input$Full)

其中值为1-input$Full，因此它确实取决于第一个，但在第一个滑块中值为0.2：

sliderInput("Full", "% water", min = 0, max = 1, value = 0.2),

由于这个0.2，与第二个没有关系。

虽然，正如你提到的，你最终会得到循环依赖。