Shiny 反应性数据加载前以闪亮：红色错误进行渲染

我确信有一个函数可以让我在加载选择器和反应数据后等待渲染Echarts4R输出，以减轻影响，直到加载为止！一旦反应数据被加载，我就会得到一个很好的输出。在加载时，最好有一个加载符号或其他东西。不过，加载只需大约一秒钟，所以这不是必须的

下面是一些示例代码片段。 图形的用户界面：

box(width = 12, title = "Total Escalated Project Costs by Calendar Year", solidHeader = TRUE, collapsible = TRUE, status = "primary"
                                      ,echarts4rOutput("initiative_cashflow")

  output$Breakdown_by_Project <- renderEcharts4r({
breakdown_by_project_data <- init_data() %>%
  group_by(Project) %>%
  summarise(total_project_cost = sum(`Escalated Project Cost`))%>%
  select(Project, total_project_cost)%>%
  e_charts(Project)%>%
  e_pie(total_project_cost, radius = c("50%", "70%"))%>%
  e_legend(show = FALSE) %>%
  e_tooltip()}) 

以及图形的服务器：

box(width = 12, title = "Total Escalated Project Costs by Calendar Year", solidHeader = TRUE, collapsible = TRUE, status = "primary"
                                      ,echarts4rOutput("initiative_cashflow")

  output$Breakdown_by_Project <- renderEcharts4r({
breakdown_by_project_data <- init_data() %>%
  group_by(Project) %>%
  summarise(total_project_cost = sum(`Escalated Project Cost`))%>%
  select(Project, total_project_cost)%>%
  e_charts(Project)%>%
  e_pie(total_project_cost, radius = c("50%", "70%"))%>%
  e_legend(show = FALSE) %>%
  e_tooltip()}) 

按项目%
总结（项目总成本=总和（‘上报项目成本’）%>%
选择（项目，项目总成本）%>%
e_图表（项目）%>%
e_派（项目总成本，半径=c（“50%”，70%”）%>%
e_图例（显示=假）%>%
e_工具提示（）}）

任何帮助都将不胜感激

---

谢谢

A将帮助我们帮助你。另外，检查

shinny:：req

函数，它可以帮助您。@Geovany我将研究shinny:：req。同时，我添加了两段代码，希望对您有所帮助！谢谢。@Geovany解决了这个问题！谢谢