Как сделать так, чтобы R Shiny titlepanel извлекал текст с сервера?

Question

Есть ли какой-нибудь способ иметь динамический заголовок titlePanel, который извлекается непосредственно из пользовательского интерфейса, как показано ниже?Если это невозможно, возможно ли иметь вторую строку, аналогичную титульной панели, прямо под титульной панелью?

# Define UI ----
ui <- fluidPage(
  ##Whatever UI code here
  titlepanel_text = paste0("Some string", variable_with_text)
)

# Define server logic ----
server <- function(input, output) {
    titlePanel("title panel"),
   #Rest of server code here

}

Answer 1

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

 # Application title
        titlePanel(
          fixedRow(
            column(9,
                   "My Template",
                   fixedRow(
                     column(9,
                            paste0("Author : ", author)
                     ),
                     column(3,
                            paste0("date : ", today(tzone = ""))
                     )
                   )
            )
          )  ),

Answer 2

Рендеринг текста на сервере и захват текстового вывода в пользовательском интерфейсе:

library(shiny)
# Define UI ----
ui <- fluidPage(
  ##Whatever UI code here
  titlePanel(textOutput("title_panel")),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(h1("text"))
  )
)

# Define server logic ----
server <- function(input, output) {

  output$title_panel <- renderText({
    paste0("This is the date/time: ", Sys.time() )
  })

}

shiny::shinyApp(ui, server)