I'm trying to render a valueBox in a shiny app, but I get only the text.
UI
mainPanel(
fluidRow(
column(6, valueBoxOutput("PercentageEnv1")),
column(6, valueBoxOutput("PercentageEnv2")))
Server
output$PercentageEnv1 <- renderValueBox({
valueBox(paste0(PercEnv1_a, "%"),
subtitle = "non matching tables in Env 1",
color = "teal")
})
output$PercentageEnv2 <- renderValueBox({
valueBox(paste0(PercEnv2_a, "%"),
subtitle = "non matching tables in Env 2",
color = "blue")
})
Any ideas of what is causing this behavior?