0

这是我用来在 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，没有仪表：

4

0 回答 0