ShinyDashboard -使用CSS缩放

Question

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

我在上面找到了一篇文章，但是，它不适用于Shinydashboard。当我实现CSS时，我得到了很多空格。

文章转到SO：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)

图片显示问题(使用铬)：

​

Answer 1

我认为如果你对你的ui代码进行一些修改，它将会工作。当我这样做时，它对我来说是有效的：

library(shiny)
library(shinydashboard)

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

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

shinyApp(ui, server)