I am sure there is a function out there that will let me wait to render my Echarts4R output once my pickers & reactive data have loaded, as to mitigate the ugly red warning until they do! Once the reactive data is loaded, I get a nice output as such. It would be even better to have a little loading symbol or something while they load. It only takes about a second to load, though, so that isnt imperative.
Here are some example code snippets. The UI for the graphic:
box(width = 12, title = "Total Escalated Project Costs by Calendar Year", solidHeader = TRUE, collapsible = TRUE, status = "primary"
,echarts4rOutput("initiative_cashflow")
And the server for the graphic:
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()})
Any help would be appreciated!
Thanks!