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)