基于其他Widget的闪亮Widget值

Question

因此，让我们说，我有以下R闪亮的应用程序UI：

ui <- fluidPage(
   
   sidebarLayout(
      sidebarPanel(
         sliderInput("x1",
                     "Choose knot 1:",
                     min = 1,
                     max = # here I want the value of slider x2
                     value = 10, # default value
                     step=0.01),
         sliderInput("x2",
                     "Choose knot 2:",
                     min = # here I want value of slider input x1
                     max = 50,
                     value = 25, # default value
                     step=0.01),
      )
   )
)

我希望滑块输入x1的最大值是滑块输入x2的当前值，而滑块输入x2的最小值是滑块输入x1的当前值。如何从另一个小部件中的滑块输入中获取当前值？

Answer 1

我认为您可以在updateSliderInput中使用observe中的server来获得所需的行为。

server <- function(input, output, session) {
  observe({
    updateSliderInput(session, inputId = "x1", max = input$x2)
    updateSliderInput(session, inputId = "x2", min = input$x1)
  })
}