This is the code that I am using to render a gauge in flexdashboard with a runtime: shiny :
`renderGauge({
select <- reactive({
input$select})
call_data_f <- pbrCalls_Data %>%
filter(pbrCalls_Data$village==select())
sum_table <- round(sum(call_data_f$status_match,na.rm = TRUE)/sum(complete.cases(call_data_f$status_match))*100)
gauge(sum_table, min = 0, max = 100, symbol = '%', gaugeSectors(
success = c(75, 100), warning = c(40, 74), danger = c(0, 39)
))
})`
When I knit locally, the gauge appears correctly as shown below:
But after publishing to shinyapps.io, I can only see the 0, the %age and 100, no gauge:
