Динамически отображать заголовок в R блестящей коробке

Question

Я пытаюсь визуализировать заголовок для ящиков, которые я использую в R, динамически блестит.

На данный момент код коробки выглядит следующим образом

 box( title = "lorem ipsum",
        width = 6,
        solidHeader = TRUE,
        status = "primary",
        tableOutput("consumption"),
        collapsible = T
      )

Возможно ли использоватьвизуализировать текст на сервере и передать текст в качестве заголовка:

 con1 <- renderText({
   if (age() == FALSE)
       {
         return("lorem1")

       }
       else
       {
         return("lorem2")
       }
 })

Answer 1

Вы должны сохранить выходные данные renderText как output$x, где x является произвольным, чтобы вы могли ссылаться на этот элемент как textOutput('x') в параметре title вашего блока.Таким образом, рабочий пример будет таким, как показано ниже.Надеюсь, это поможет!

---

---

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    checkboxInput('mybox',label = 'Title'),
    box(title=textOutput('title'),
        width = 6,
        solidHeader = TRUE,
        status = "primary",
        p('Use the checkbox to change the title of this box.')
    )
  )
)

server <- function(input, output) {
  output$title <- renderText({ifelse(!input$mybox,'Title 1','Title 2')})
}

shinyApp(ui,server)