在浏览器中默认情况下缩小闪亮的应用程序 [英] Zoom out shiny app at default in browser

问题描述

当我打开有光泽的应用程序时，当我缩小到75％时，它们看起来会更好.如何在服务器上强制将闪亮的应用程序打开75％?我已经尝试了他们在此链接中提到的内容，但是它似乎没有用. css:

When I open my shiny apps I find them look better when I zoom out to 75%. How can I force the shiny app to open at 75%, also on a server? I already tried what they mention in this link but it doesn't seem to work. 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)

这篇关于在浏览器中默认情况下缩小闪亮的应用程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！