Question

当我打开我的闪亮应用程序时，我发现当我缩小到75％时它们看起来更好。如何强制闪亮的应用程序以75％的速度打开，同样在服务器上？我已经尝试了他们在this link中提到的内容，但它似乎无法奏效。的CSS：

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

由于

Answer 1

使用此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)

在浏览器中默认缩小闪亮的应用程序

1 个答案: