R 滑块输入最小/最大值的交互式/反应性变化

我发现了如何在

侧面板

中使用反应式表达式更改

滑块输入

的

值。但是，我想用一个
数值输入
来更改滑块的
min
和
max
，而不是
值。在
server.R
的脚本中，它表示滑块只能更改
label
和
value
。是否有其他可能使用反应式表达式更改
sliderInput
的最小/最大值

下面是一个例子：

ui.R：

服务器.R:

library(shiny)

shinyServer(function(input, output, session) {

reactive({

x<-input$min_val

y<-input$max_val


updateSliderInput(session, "inSlider", min=x, max=y, value=x)

})

库（闪亮）
shinyServer（功能（输入、输出、会话）{
反应性({
x我认为最好通过
renderUI（）
和
uiOutput（）
使用shiny的动态UI函数来实现这一点。请尝试以下示例：

用户界面

服务器.R

library(shiny)

shinyServer(function(input, output, session) {

  #make dynamic slider
  output$slider <- renderUI({
    sliderInput("inSlider", "Slider", min=input$min_val, max=input$max_val, value=2000)
  })

})

库（闪亮）
shinyServer（功能（输入、输出、会话）{
#制作动态滑块
输出$slider谢谢@David，滑块工作！但我在从滑块获取输出值时遇到问题。我尝试了
input$slider
，但似乎
slider
没有返回任何值。有什么想法吗？刚刚意识到我必须使用
input$inSlider
。抱歉打扰了。我经常以这种方式编写输出(“outputSlider”）和sliderInput（“inputSlider”，等等），以避免混淆…我认为这是现在贬值了。
library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Test Shiny App"),

  sidebarPanel(
    #Numeric Inputs
    numericInput("min_val", "Enter Minimum Value", 1993),
    numericInput("max_val", "Enter Maximum Value", 2013),
    #display dynamic UI
    uiOutput("slider")
  ),

  mainPanel()
))

library(shiny)

shinyServer(function(input, output, session) {

  #make dynamic slider
  output$slider <- renderUI({
    sliderInput("inSlider", "Slider", min=input$min_val, max=input$max_val, value=2000)
  })

})