R Shiny：Modal中的反应值无法正常工作

Question

我的modalDialog的标题是reactiveValue。一旦在模态中更改了某个输入，我希望标题改变。我尝试了几种不同的方法，但却无法让它无缝地工作。标题要么不更新，要么仅在我关闭/重新打开模式时更新，或者在立即更新标题时使模式完全重新呈现。

目前，我被困在最后一个（完全模态重新渲染）。但是，当我创建最小的，可重现的示例（下面）时，如果我关闭并重新打开模态，标题只会更新。

ui<-fluidPage(
  actionButton(inputId="model", label="Edit Model")
)

server<-function(input, output, session) {
  rv<-reactiveValues(header="Standard Model")

  observeEvent(input$model, {
    showModal(
      modalDialog(
        fluidPage(
          fluidRow(h3(rv$header)),
          sliderInput(inputId="factor_1", "Factor #1", value=70, min=0, max=100),
          sliderInput(inputId="factor_2", "Factor #2", value=30, min=0, max=100)
        ),
        footer=modalButton("Save Weights"), size="s", easyClose=TRUE
      )
    )
  })

  observe({if (!is.null(input$factor_1)) {
    if (input$factor_1!=70) {
      rv$header<-"Custom Model"
      }
    }
  })
}

shinyApp(ui=ui, server=server)

基本上，一旦第一次更改因子＃1的输入，我希望标题从“标准模型”更改为“自定义模型”（不关闭/重新打开或重新渲染模态）。

Answer 1

使用renderUI/uiOutput：

library(shiny)

ui <- fluidPage(
  actionButton("model", label = "Edit Model") 
)

server <- function(input, output, session) {

  rv <- reactiveValues(header = "Standard Model")

  observeEvent(input[["model"]], {
    showModal(
      modalDialog(
        fluidPage(
          uiOutput("modalTitle"),
          sliderInput("factor_1", "Factor #1", value=70, min=0, max=100),
          sliderInput("factor_2", "Factor #2", value=30, min=0, max=100)
        ),
        footer = modalButton("Save Weights"), 
        size="s", easyClose=TRUE
      )
    )
  })

  output[["modalTitle"]] <- renderUI({
    fluidRow(h3(rv$header))
  })

  observe({
    if (!is.null(input$factor_1)) {
      if (input$factor_1 != 70) {
        rv$header <- "Custom Model"
      }
    }
  })

}

shinyApp(ui=ui, server=server)