0
Es gibt eine Inkompatibilität zwischen dygraph und valueBox in der Shinydashboard? Warum nicht die ValueBox plotten? Kann mir jemand helfen?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)
Versionen:
> 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’
Und das ist es, Ergebnisse, ich weiß nicht, warum nicht den Wert Box zeigen: