R 根据 Select 的单选按钮生成有关shiny 仪表板中特定选项卡的信息

欢迎罗德里格斯，

您的代码的一个问题是您使用的是tabItem，其中只需要h2.(在用户界面中已经调用了表项"乳房"和"颈部"，不需要在renderUI中调用它们).因此，只需使用if Else逻辑来定义h2内容.第二个uiOutput应该在UI中相应的表项下调用(因此为BC和CC分别创建一个动态UI).

library(shiny)
library(shinydashboard)
library(shinyjs)

header <- dashboardHeader(
  title = "Breast and Cervical Cancer: How to Help You"
)

sidebar <- dashboardSidebar(
  sidebarMenu(
    radioButtons("age", "Select Your Age Range",
                 choices = c("18-29", "30-39", "40-49", "50-59", "60+"),
                 selected = "18-29"),
    menuItem("About the Tool", tabName = "about"),
    menuItem("Breast Cancer", tabName = "breast"),
    menuItem("Cervical Cancer", tabName = "cervical"),
    menuItem("More Information", tabName = "info")
  )
)


body <- dashboardBody(
  # Creating the Tabs  
  tabItems(
    tabItem("about",
            h1("About the Tool"),
            p("Here's some information about the tool"),
    ),
    tabItem("breast",
            h1("Breast Cancer"),
            p("You can use the following resources to learn some more about breast"),
            uiOutput("dynamic_tabs_BC"),
    ),
    tabItem("cervical",
            h1("Cervical Cancer"),
            p("You can use the following resources to learn some more about cervical"),
            uiOutput("dynamic_tabs_CC"),
            
    ),
    tabItem("info",
            h1("More Information"),
            p("You can use the following resources to learn some more"),
    )
  )
)
# Adding Age-Specific Information to Two Tabs
server = function(input, output) {
  output$dynamic_tabs_CC <- renderUI({
    selected_age <- input$age
    # Cervical Cancer Tab
    if (selected_age == "18-29") {
      tab_content <- h2("Okay, this works")
    } else if (selected_age == "30-39") {
      tab_content <- h2("Testing again")
    } else if (selected_age == "40-49") {
      tab_content <- h2("Keep testing")
    } else if (selected_age == "50-59"){
      tab_content <- h2("One more to go")
    } else if (selected_age == "60+") {
      tab_content <- h2("finally")
    }
    tab_content
  })
  output$dynamic_tabs_BC <- renderUI({
    selected_age <- input$age
    if (selected_age == "18-29") {
      tab_content <- h2("You and Your Breasts")
    } else if (selected_age == "30-39") {
      tab_content <- h2("Start Having Discussions")
    } else if (selected_age == "40-49") {
      tab_content <- h2("Time for Your Mammogram!")
    } else if (selected_age == "50-59"){
      tab_content <- h2("It's Time to See Your OBGYN")
    } else if (selected_age == "60+") {
      tab_content <- h2("Continue Discussions and Get Checked")
    }
    tab_content
  })
}

shinyApp(ui = dashboardPage(header, sidebar, body), server)

这是一个接近于您已有的解决方案，然而，我建议go 掉所有If Else的东西，使用带有索引的数据帧来呈现H2‘S.大概是这样的事情:

headers<-data.frame(
  age= c("18-29","30-39","40-49","50-59","60+"),
  CC = c("Okay, this works","Testing again","Keep testing","One more to go","finally"),
  BC = c("You and Your Breasts","Start Having Discussions","Time for Your Mammogram!","It's Time to See Your OBGYN","Continue Discussions and Get Checked")
  )

server = function(input,output){
  selected_age <- reactive({input$age})
  output$dynamic_tabs_CC <- renderUI({
    h2(headers[headers$age == selected_age(),]$CC)
  })
  output$dynamic_tabs_BC <- renderUI({
    h2(headers[headers$age == selected_age(),]$BC)
  })
}