有没有办法可以在我的闪亮应用程序中制作更大的flexdashboard gauge?
我尝试在UI中更改宽度和高度,但只是在仪表板上移动它。它不会让它变大。
library(shiny)
library(flexdashboard)
fluidRow(column(
width = 12,
gaugeOutput('Scale', width = "800px", height = "400px")
)
)
答案 0 :(得分:1)
你的意思是这样吗?
只需使用一些简单的CSS。
library(shiny)
library(flexdashboard)
css <- HTML("
.html-widget.gauge svg {
height: 400px;
width: 800px;
}")
ui <- fluidPage(
tags$head(tags$style(css)),
fluidRow(column(
width = 12,
gaugeOutput('Scale')
)
)
)
server <- function(input, output, session) {
output$Scale <- renderGauge({
gauge(56, min = 0, max = 100, symbol = '%', label = paste("Test Label"),gaugeSectors(
success = c(100, 6), warning = c(5,1), danger = c(0, 1), colors = c("#CC6699")
))
})
}
shinyApp(ui, server)