library(shiny)
library(shinydashboard)
filetime <- format(file.mtime("mydata.csv"), format = "%a %e-%b-%Y %r IST")
ui <- dashboardPage(
dashboardHeader(title = "Recruitment"),
dashboardSidebar(),
dashboardBody(
shinyUI(fluidPage(
box(verbatimTextOutput("final_text"), status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12, title = "Collapsable text")
))))
server <- shinyServer(function(input, output, session) {
output$final_text <- renderText({
HTML(paste("<center>","Last updated at", filetime, "</center>")) #"<font size=\"2\">",
})
}
在以上代码中,
Last updated at and filetime
没有居中对齐。经过进一步研究,我发现HTML5中center
标签不起作用,不确定是否是导致问题的原因。为了解决这个问题,我通过CSS添加了一个
div和class
来居中对齐文本,以下是我的第二个尝试。#Next to fluidPage
tags$style(HTML(".man_made_class{color:#f2f205; text-align: center;}")),
#Then further in Output
output$final_text <- renderText({
HTML(paste("<div class= man_made_class>","Last updated at", filetime, "</div>")) #"<font size=\"2\">",
})
在我的尝试中,我能够更改颜色
、字体大小
、边距
等内容,但无法将文本居中对齐。有什么帮助吗?