我正在使用“Shiny”创建一个网络应用程序,并且曾经summarytools::dfSummary
打印出我的数据摘要。我曾经bs_theme
使用选择的十六进制值来主题化应用程序。
我正在努力格式化来自 的输出summarytools::dfSummary
,它最终只格式化了摘要的图形部分,而其余的输出没有主题化。
我可以DT::datatable
通过添加来设置我的主题style = "bootstrap"
,但是无法获得相同的效果dfsummary
。
应用程序主题:查看我的主题在我的应用程序的其他部分中的工作方式
服务器代码
shinyServer(function(input, output, session) {
output$data_dt <- DT::renderDataTable({
DT::datatable(data = as.data.frame(data_a2),
style = "bootstrap")
})
output$Summary <- renderUI({
summary_stats <- data_a2 %>%
summarytools::dfSummary() %>%
print(method = "render",
plain.ascii = FALSE,
graph.magnif = 0.8,
headings = TRUE,
bootstrap.css = FALSE,
style= "bootstrap")
})
})
用户界面代码
shinyUI(
navbarPage(
title = ("stuff"),
#Raw data
tabPanel("raw data",
DT::dataTableOutput(outputId= "data_dt")
),
#summary
tabPanel("summary",
htmlOutput(outputId= "Summary")
),
#theme
inverse = TRUE,
theme = bs_theme(version = 4,
bg = "#1A1A1A",
fg = "#BC7B7D",
primary = "#CFB1B3",
base_font = font_google("Space Mono"))
)
)
对此的任何帮助将不胜感激,谢谢!