Question

请在下面找到工作代码。基本上，有3个numericInputs允许用户一次更改任何人，而其他2个应自行调整，结果为1

A + B + C = 1 但是，由于它们是相互链接的，因此它们似乎不稳定。我们如何才能使其稳定并允许用户更改任何1个变量：A和其他2个变量将自己的总和更改为1。

根据此处的答案，创建如下所示的工作代码：

Connect mutually dependent shiny input values

Dependent inputs in Shiny application with R

library(shiny)
ui <- shinyUI(fluidPage(
  titlePanel("Mutually Dependent Input Values"),
  sidebarLayout(
    sidebarPanel(
      numericInput("A", "A",.333),
      numericInput("B", "B",.333),
      numericInput("C", "C",.333)
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)) 
server <- shinyServer(function(input, output,session) {

  observeEvent(input$A,{
    newB <- 1 - input$A - input$C 
    updateNumericInput(session, "B", value = newB) 
    newC <- 1 - input$A - input$B 
    updateNumericInput(session, "C", value = newC) 
  })
  observeEvent(input$B,{
    newC <- 1 - input$B - input$A 
    updateNumericInput(session, "C", value = newC) 
    newA <- 1 - input$B - input$C 
    updateNumericInput(session, "A", value = newA) 
  })
  observeEvent(input$C,{
    newA <- 1 - input$C - input$B 
    updateNumericInput(session, "A", value = newA) 
    newB <- 1 - input$C - input$C 
    updateNumericInput(session, "B", value = newB) 
  })


})
shinyApp(ui,server)

基本上，用户可以自由更新任何numericInput：A，B或C。其他2个numericInput应该自适应以总计为1。当前，由于它们是相互链接的，因此它们似乎不稳定（请找到上面的代码以重新生成错误）

#######使用自己的解决方案的不同方法


ui <- fluidPage(
  column(6, 
         tags$h2("Set parameters"),
         numericInput("valueA", "Value1", value = .333, min = 0, max = 1, step = .1),
         numericInput("valueB", "Value2", value = .333, min = 0, max = 1, step = .1),
         numericInput("valueC", "Value3", value = .333, min = 0, max = 1, step = .1)
  ),
  column(6,
         uiOutput("ui")
  )
)

server <- function(input, output, session) {
  output$ui <- renderUI( {
    tagList(
      tags$h2("Display in %"),
      numericInput("obs1", "Label1", value = 100 * (input$valueA / (input$valueA + input$valueB + input$valueC))),
      numericInput("obs2", "Label2", value = 100 * (input$valueB / (input$valueA + input$valueB + input$valueC))),
      numericInput("obs2", "Label2", value = 100 * (input$valueC / (input$valueA + input$valueB + input$valueC)))
    )
  })
}

shinyApp(ui, server)

Answer 1

您需要做两件事：

首先让您的初始值稳定，所以它们的总和应该为1（0.333、0.333， 0.334 ），或者让初始值为空，仅当您具有某种类型的错误转义机制，以允许将NA或空字符串作为初始值。我认为无论如何都应该对输入是数字进行某种验证，因此我选择使用第二个选项，该选项与验证效果很好。
摆脱观察和更改输入的这些无限循环的第二种方法是一次更改一个，这意味着：
- 如果A被更改--->更改B，
- 如果B被更改--->更改C，并且
- 如果C更改了--->更改A

话虽如此，请注意，更改输入的顺序会在这种方法中有所不同，这在开始时为输入提供第一组值时最明显。

也许有更好的方法可以解决此问题，但这是我能想到的，所以就去了。

用户界面：

library(shiny)
ui <- shinyUI(fluidPage(
  titlePanel("Mutually Dependent Input Values"),
  sidebarLayout(
    sidebarPanel(
      numericInput("A", "A", NA),
      numericInput("B", "B", NA),
      numericInput("C", "C", NA)
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
))

服务器：

server <- shinyServer(function(input, output, session) {
  sum <- reactive({
    validate(
      need(is.numeric(input$A), 'A is not a number, only numbers are allowed'),
      need(is.numeric(input$B), 'B is not a number, only numbers are allowed'),
      need(is.numeric(input$C), 'C is not a number, only numbers are allowed')
    )
    input$A + input$B + input$C})

  observeEvent(input$A,{
      newB <- 1 - input$A - input$C
      updateNumericInput(session, "B", value = newB)
  })

  observeEvent(input$B,{
      newC <- 1 - input$B - input$A
      updateNumericInput(session, "C", value = newC)
  })

  observeEvent(input$C,{
      newA <- 1 - input$C - input$B
      updateNumericInput(session, "A", value = newA)
  })

  output$result <- renderPrint({
    print(sprintf("A=%.3f      B=%.3f      C=%.3f  ---->   A + B + C = %.0f", 
                  input$A, input$B, input$C, sum()))
  })
})

运行：

shinyApp(ui,server)

如何在Shiny中创建相互依赖的数字输入？

1 个答案: