停止更新*无效反应输入

我正在寻找停止的方法update*Input使我的 Shiny 应用程序中的无功值无效的函数。我希望更新函数仅更改可视 UI 组件，而不更改底层反应值。

这是一个代表：

library(shiny)

ui <- fluidPage(

    sliderInput("slide1", "Slider", min = 0, max = 10, value = 5),
    sliderInput("slide2", "Slider2", min = 0, max = 10, value = 0),
    
    textOutput("slide2_val")
)

server <- function(input, output, session) {
    
    observe({
        updateSliderInput(session, "slide2", value = input$slide1)
    }) |> 
        bindEvent(input$slide1)
    
    output$slide2_val <- renderText({
        paste("Value of `slide2`:", input$slide2)
    })
}

shinyApp(ui, server)

期望的行为是为了值input$slide2仅当用户与幻灯片 2 交互时才更改，但滑块 UI 元素在与幻灯片 1 或幻灯片 2 交互时更改。

重要的是，这需要适用于各种input*功能。监听点击事件对于像这样的输入不起作用selectInput（参见我的相关问题 https://stackoverflow.com/questions/72061061/on-click-for-shiny-inputs-to-get-last-input-clicked-doesnt-work-for-selectinput).

In my 最近对另一个问题的回答 https://stackoverflow.com/a/71438718/4550695我制造了一个suspendForNextFlush()功能暂时停止更改 输入被发送到 Shiny。该功能可以用来解决您的问题 问题，也是。

我已经将该函数放入实验中闪亮悬浮 https://github.com/mikmart/shinysuspend包裹。你可以 从 GitHub 安装它：

remotes::install_github("mikmart/shinysuspend")

然后包括useShinysuspend()在 UI 中，然后调用suspendForNextFlush()更新时slide2从服务器：

library(shiny)
library(shinysuspend)

ui <- fluidPage(
  useShinysuspend(),
  sliderInput("slide1", "Slider 1", min = 0, max = 10, value = 5),
  sliderInput("slide2", "Slider 2", min = 0, max = 10, value = 0),
  textOutput("slide2_val")
)

server <- function(input, output, session) {
  observe({
    suspendForNextFlush("slide2")
    updateSliderInput(session, "slide2", value = input$slide1)
  })
  
  output$slide2_val <- renderText({
    paste("Value of `slide2`:", input$slide2)
  })
}

shinyApp(ui, server)