ShinyDashboard - 使用CSS缩放

Question

我正在尝试在闪亮的仪表板上实现缩放，因为当网页浏览器的缩放率为80％时，布局看起来会更好。

我发现了一篇关于SO的文章，但它不适用于Shinydashboard。当我实现CSS时，我会得到很多死白空间。

文章： Zoom out shiny app at default in browser

简单代码示例：

library(shiny)
library(shinydashboard)

header <- dashboardHeader()
sidebar <- dashboardSidebar()
body <- dashboardBody(
  tags$style("
              body {
             -moz-transform: scale(0.8, 0.8); /* Moz-browsers */
             zoom: 0.8; /* Other non-webkit browsers */
             zoom: 80%; /* Webkit browsers */
             }
             "),
  "test")

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output, session) {}

shinyApp(ui, server)

显示问题的图片（使用chrome）：

Answer 1

我认为如果你修改你的ui代码会有用。当我这样做时，它对我有用：

{{1}}