在 Shiny 中连接 sliderInput 的值

Question

我一直被这个简单的问题困扰：

Shiny 应用程序使用多个滑块输入，它们位于标准流体页面的不同选项卡中。当一个滑块移动时，其他滑块应相应移动。

我一直在使用放在 observe() 中的 updateSliderInput() 函数

是否有任何其他功能或程序可以更改选定滑块的值？我也遇到过，当我切换到其他选项卡时，滑块的初始值设置为开始时，即使它应该由 updateSliderInput() 更改。

如果有人能向我推荐一些可以帮助我的函数或算法，我将非常感激。

加分项：我还需要为 selectInput 和 radioButtons 执行此操作

Answer 1

我有一个类似的问题，并遵循了一个例子 R shiny bi-directional reactive widgets 这个对我有用。请参阅以下内容：

R 代码

ui <- fluidPage(
titlePanel(""),
fluidRow(
    column(3,
           wellPanel(
             
               uiOutput('slider1'),
               uiOutput('text1')
           ))
    
))


server <- function(input, output) {

output$slider1<-renderUI({
    text1.value<-input$slider1
    default.slider1<-if(is.null(text1.value)) 15 else text1.value
    textInput("text1", label="slider",
              value = default.slider1)
})

output$text1<-renderUI({
    slider1.value<-input$text1
    default.text1<-if(is.null(slider1.value)) 15 else slider1.value
    sliderInput("slider1", label = h5("text"),
                min = -10, max = 10, value = default.text1,step = 1)
})}

刚刚意识到这个问题是很久以前发布的。仍然希望它有所帮助！