##----------------------------------------------------------------------------##
## Color assignments.
##----------------------------------------------------------------------------##
overview_projection_color_assignments <- reactive({
req(
overview_projection_data(),
overview_projection_parameters_plot()
)
# message('--> trigger "overview_projection_color_assignments"')
colors <- assignColorsToGroups(
overview_projection_data(),
overview_projection_parameters_plot()[['color_variable']]
)
# message(str(colors))
return(colors)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.