Shiny中的条件面板不更新变量

Question

我正在尝试在 R Shiny 中使用条件面板，但遇到了未分配值的问题。这是我的代码的 sn-p：

   conditionalPanel(condition="input['input.type']=='Use Example Data'",
     textInput("Label", "Enter the label:", "A"),
     ),
   conditionalPanel(condition="input['input.type']=='Upload Data'",
     textInput("Label", "Enter the label:", "B"),
     )

现在，使用这段代码，我期望发生的是，如果用户选择“使用示例数据”，那么默认值将是 A（它是），但如果用户切换到“上传数据”，那么默认值仍然是 A 而不是 B 如我所料。似乎只有第一个条件面板存储值，因为它们具有相同的名称？

第二个问题，当用户在“使用示例数据”和“上传数据”之间切换时，条件面板确实会发生变化，但如果我用 C 替换 A 的值，然后来回切换，则值的 C 将始终存在，而不是被重置为 A。有没有简单的解决方法？

Answer 1

这是你想要的吗？

rm(list = ls())
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    selectInput("type", "Type:",c("Use Example Data","Upload Data"))),
  dashboardBody(
    uiOutput("myui")    
  )
)
server <- function(input, output) {
  output$myui <- renderUI({
    if(input$type == "Upload Data"){
      textInput("Label", "Enter the label:", "B")
    }
    else{
      textInput("Label", "Enter the label:", "A")
    }
  }) 
}
shinyApp(ui, server)