基于其他小部件的闪亮小部件值

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

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

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