Flexdashboard Gauge не отображается при публикации в shinyapps.io

Question

Это код, который я использую для визуализации датчика во Flexdashboard с 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)
  ))
})`

Когда я вяжу локально, манометр выглядит правильно, как показано ниже:

Но после публикации в shinyapps.io я могу видеть только 0,%age и 100, без датчика: