Shiny中相同值的两个输入

Question

我是 Shiny 的新手，我对 html 一无所知，我在寻找一种方法来为我的应用程序中的相同输入值同时获取滑块和数字输入时遇到问题。我也希望，例如，当我将数值设置为 25 时，一旦按下按钮，滑块就会自动将自身设置为 25。 谢谢您的帮助。 我为我的 ui 尝试过，但它不起作用......

library(shiny)
shinyUI(fluidPage(
  numericInput(inputId = "num1",
               label = "Jour limite",
               value = 10, min = 1, max=500),
  sliderInput(inputId = "num",
              label= "Jour limite",
              value= 10 ,min=1 ,max=500
  ),
  actionButton(inputId="clicks",
               label= "Actualiser"),
  plotOutput("courbj")

))

不知道是否相关，但这是我的服务器代码：

print(getwd())
CourbeTot <- read.table("data/CourbeTot.csv",header=TRUE,sep=";")



shinyServer(
  function(input,output) {
  valeur <- eventReactive(input$clicks, {
    (input$num)
  })



  output$courbj <- renderPlot({
    plot(CourbeTot$DFSurvieTot.time,CourbeTot$DFSurvieTot.ProptionAuDelaDe,xlim=c(1,2*valeur()))
  })

})

Answer 1

您可以尝试在服务器站点上使用renderUI 设置反应式输入（滑块和数字）。

这里是UI.R

library(shiny)
shinyUI(fluidPage(
  uiOutput("INPUT"),
  uiOutput("SLIDER"),
  plotOutput("courbj")
))

这里是Server.R。

library(shiny)
print(getwd())
CourbeTot <- 1:10

shinyServer(
  function(input,output) {

    valeur <- reactive({
      S <- input$num
      N <- input$num1
      max(c(10,S,N))
    })

    output$courbj <- renderPlot({
      plot(c(CourbeTot,valeur()))
    })

    # rective slider and numeric input 
    output$SLIDER = renderUI({
      sliderInput(inputId = "num",
                  label= "Jour limite",
                  value= valeur() ,min=1 ,max=500)
          })

    output$INPUT = renderUI({
      numericInput(inputId = "num1",
                   label = "Jour limite",
                   value = valeur(), min = 1, max=500)
    })

  })

由于您没有提供可重现的示例，我创建了一个。滑块和数字输入将分别根据另一个变化。这是完成的 1. 每个 max 函数将始终输出由两个输入之一设置的最大值。和。 2 使用renderUI 将输入移动到服务器端。您会看到，由于初始 NULL 行为存在问题，我删除了单击按钮。出现此错误时，您无法（或者我发现没有办法）选择一个值并在单击后更新另一个值。这似乎是一个闪亮的错误，已经问过here。代码并不完美，但我认为这是一个很好的基础，您可以根据自己的目的进行调整。