当我打开我的闪亮应用程序时,我发现当我缩小到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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。