0
shyydashboard에서 dygraph와 valueBox 사이에 약간의 비 호환성이 있습니까? ValueBox를 플롯하지 않는 이유는 무엇입니까? 누군가 나를 도울 수 있습니까?Shinydashboard + dygraph + valueBox
## app.R ##
library(shiny)
library(shinydashboard)
library(dygraphs)
ui <- dashboardPage(
dashboardHeader(title = "Monitoramento Banco de Dados"),
dashboardSidebar(
sliderInput("DateInput", "Periodo", -30, 0, c(-15, 0), pre = "D.")
),
dashboardBody(
fluidRow(
valueBoxOutput("box_Locks"),
valueBoxOutput("box_PLE"),
valueBoxOutput("box_CPU")
),
fluidRow(
dygraphOutput("plot1")
)
)
)
server <- function(input, output) {
output$box_Locks <- renderValueBox({
valueBox("7", "Locks", icon = icon("area-chart"), color = "yellow")
})
output$box_PLE <- renderValueBox({
valueBox("1500", "PLE", icon = icon("area-chart"), color = "green")
})
output$box_CPU <- renderValueBox({
valueBox(paste0(20, "%"), "CPU", icon = icon("area-chart"), color = "red")
})
output$plot1 <- renderDygraph({
lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dyRangeSelector(dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)"), dateWindow = c("1974-01-01", "1980-01-01"))
})
}
shinyApp(ui, server)
버전 :
> R.version.string
[1] "R version 3.3.1 (2016-06-21)"
> packageVersion("shiny")
[1] ‘0.13.2’
> packageVersion("shinydashboard")
[1] ‘0.5.1’
> packageVersion("dygraphs")
[1] ‘1.1.1.0’