当我打开我的闪亮应用程序时,我发现当我缩小到75％时它们看起来更好.如何强制闪亮的应用程序以75％的速度打开,同样在服务器上？我已经尝试过他们在
this link中提到的东西,但似乎没有用.
CSS：
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)
