如何讓R Shiny標題面板從服務器提取文本？

Question

是否有某種方式可以使動態的titlePanel標題直接從如下所示的UI中提取？ 如果不可能，是否有可能在titlepanel的正下方有第二行類似於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

在服務器中渲染文本並在UI中獲取文本輸出：

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)

Answer 2

您可以插入這種代碼來構建標題面板

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