ShinyDashboard - Zoom mit CSS

Question

Ich versuche, Zoom auf meinem glänzenden Armaturenbrett zu implementieren, da das Layout besser aussieht, wenn es bei 80% Zoom für den Webbrowser ist.

Ich fand einen Artikel über SO, funktioniert jedoch nicht für Shinydashboard. Wenn ich die CSS implementiere, bekomme ich viel leeren weißen Platz.

Artikel zu SO: Zoom out shiny app at default in browser

Einfach-Code Beispiel:

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) 

Bild Problem zeigt (mit Chrom):

Answer 1

ich denke, es wird funktionieren, wenn Sie Ihre ui Code ändern etwas. Es funktioniert für mich, wenn ich es so mache:

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)