css - 在浏览器中默认情况下缩小 Shiny 的应用程序

当我打开 Shiny 的应用程序时，当我缩小到75％时，它们看起来会更好。如何在服务器上强制将 Shiny 的应用程序打开75％？我已经尝试了他们在this link中提到的内容，但似乎没有用。
CSS:

.content-wrapper,
.right-side {
  background-color: #ffffff;
}
#controls {
  zoom: 0.75;
}

谢谢

最佳答案

使用此SO答案:https://stackoverflow.com/a/21668647/4564432

library(shiny)

# Define UI for application that draws a histogram
ui <- shinyUI(fluidPage(
   tags$style("
              body {
    -moz-transform: scale(0.8, 0.8); /* Moz-browsers */
    zoom: 0.8; /* Other non-webkit browsers */
    zoom: 80%; /* Webkit browsers */
}
              "),
   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
))

# Define server logic required to draw a histogram
server <- shinyServer(function(input, output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2]
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
})

# Run the application
shinyApp(ui = ui, server = server)

关于css - 在浏览器中默认情况下缩小 Shiny 的应用程序，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/40172024/