2016-10-21 22 views
2

當我打開我的閃亮應用程序時,我發現它們看起來更好,當我縮小到75%時。我如何強制閃亮的應用程序打開在75%,也在服務器上?我已經嘗試過他們在this link中提到的內容,但它似乎不起作用。 CSS:在瀏覽器中縮小閃光應用程序的默認設置

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

感謝

回答

4

使用該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) 
相關問題