R - настроить текст в заголовке Shinydashboard - PullRequest
Новая
       8

R - настроить текст в заголовке Shinydashboard

0 голосов
/ 07 октября 2018

Чтобы добавить текст в заголовок панели инструментов, я принял решение второго ответа на этот вопрос (с файлом styles.css).Я должен вставить динамический текст, в то время как скрипт допускает только статический текст.Мой текст: 

format(Sys.Date(), format="%A  %d %b %Y")

как решить?

1 Ответ

0 голосов
/ 08 октября 2018

Ниже приведены два разных решения, если вы хотите отображать динамические даты в заголовке в Shiny.

Этот код будет полезен, если вам нужно использовать shinydashboard package 

library(shiny)
library(shinydashboard)

header <- dashboardHeader(
  title = "dynamicDates",
  tags$li(class = "dropdown", tags$a(HTML(paste(uiOutput("Refresh1"))))))
body <- dashboardBody()
sidebar <- dashboardSidebar()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {
  output$Refresh1 <- renderText({
    toString(format(Sys.Date(), format = "%A  %d %b %Y"))
  })
}
shinyApp(ui, server)

В этом коде я не использую пакет shinydashboard.С простыми shiny функциями в сочетании с несколькими HTML tags мы можем настроить в соответствии с потребностями. 

library(shiny)
ui <- fluidPage( 
  titlePanel("", windowTitle = "Dynamic Dates"),
  titlePanel(title = tags$div(img(src = "https://www.rstudio.com/wp-content/uploads/2014/04/shiny.png", width = 125, height = 115, align = "left"))),
  titlePanel(title = tags$div(class = "header" , tags$p("Dynamic", tags$b(" Dates"),style = "text-align: center; color:navy;"), style = "text-align: center; color:navy;")),
  titlePanel(title = tags$div(uiOutput("dynamicDate"), align = 'right')))

server <- function(input, output) {
  output$dynamicDate <- renderUI(toString(format(Sys.Date(), format = "%A  %d %b %Y")))
  }
shinyApp(ui, server)
...