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 = ""))
                     )
                   )
            )
          )  ),

如何让R Shiny titlepanel从服务器拉文本？

2 个答案: