我发布到shinyapps.io时，Flexdashboard Gauge无法渲染

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，％年龄和100，没有衡量标准：