Flexdashboard Gauge not rendering when I publish to shinyapps.io

问题

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:

来源：https://stackoverflow.com/questions/39769646/flexdashboard-gauge-not-rendering-when-i-publish-to-shinyapps-io