小编gre*_*oks的帖子

我正在努力弄清楚如何让2 R Shiny小部件相互更新.例如,可以更新文本框小部件的滑块小部件,反之亦然,最终用户可以选择使用任一小部件.

这个问题很相似,但没有答案,所以我给的是(希望)一个更简单的例子. 通过shiny :: reactive()推断检索反应依赖关系.如果在其他地方回答这个问题,我一直无法找到这样的答案.

我想知道我是否可以移动slider1来移动slider2和slider2来移动slider1.现在我只能做第一部分(我可以移动slider1来移动slider2).如果我能做到这一点,我想我可以使widget 1成为一个滑块,widget 2是一个数字输入,具有相同的代码.

下面的例子是从http://shiny.rstudio.com/gallery/update-input-demo.html修改的,它是我能做的最小例子.这也是我能找到的唯一一个接近我想要的应用程序,虽然我意识到可能需要一种非常不同的方法......

Server.R代码

shinyServer(
  function(input, output, clientData, session) {

#### one way interaction between slider 1 and 2 ####
    observe({![enter image description here][1]   
      c_label <- input$control_label
      c_num <- input$control_num  # <- input$inSlider

      # Slider input =============================================
      updateSliderInput(session, "inSlider",
                        label = paste("Slider2", c_label),
                        value = c_num)
      updateSliderInput(session, "control_num",
                        label = paste("Slider1", c_label),
                        value = c_num)
    })
})

Ui.r代码

shinyUI(fluidPage(
  titlePanel("One Way Reactive Slider"),
  fluidRow(
    column(3,
           wellPanel(
             h4("Slider Inputs"),
             sliderInput("control_num", …