在 Shiny R 中实现相互依赖的对象的正确方法是什么？

Question

我正在尝试使用Shiny。我习惯了其他编程语言（App Development 中的一点点 Java），其中有 onClick 事件，会触发其他变量的更改。我知道在 MVC 中，在视图元素发生更改后，控制器可以在后台更改模型变量，然后更新视图而不会触发其他元素上的事件无限循环。

这里的代码有效，但它触发了不必要的和不需要的循环：

如果您选择 49 作为 n，则数十个更改为 4，这将 n 更改为 48，这将更改为 4，这不会触发更改事件。

如果您随后将 n 更改为 49，则几十个更改为 4，这不会触发更改事件。

这似乎是浪费和资源密集型..

library(shiny)

ui <- fluidPage(
  sliderInput(inputId = "dozens",
              label = "Dozens:",
              min = 1,
              max = 5,
              value = 2),
  sliderInput(inputId = "n",
              label = "n:",
              min = 1,
              max = 60,
              value = 24)
)
server <- function(input, output,session) {
  observeEvent(input$dozens,{
    updateSliderInput(session,"n",value=12*input$dozens)
  })
  observeEvent(input$n,{
    updateSliderInput(session,"dozens",value=round(input$n/12))
  })
}

shinyApp(ui = ui, server = server)

正确的方法是什么？

Answer 1

observeEvent 是 Shiny 中的（某种）反模式。不要误会我的意思，它非常有用，不可或缺，我一直都在使用它。但是反应性通常在 Shiny 中效果更好，因为它不关心它，只以描述性的方式编写计算。

不过，在 OP 的情况下，我同意这似乎是不可能的。
输入之间的循环依赖尤其棘手。

一个不通用但可以在 OP 的情况下工作的解决方案是添加一个简单的if()：

server <- function(input, output, session) {
  observeEvent(input$dozens, {
    if (round(input$n / 12) != input$dozens) {
      updateSliderInput(session, "n", value = 12 * input$dozens)
    }
  })

  observeEvent(input$n, {
    updateSliderInput(session, "dozens", value = round(input$n / 12))
  })
}