Some things from a brief review of code:

• use switch() over many if/else in add_vis_dat_pal()
• use |> over %>%
• Depend on R >= 4.2.0
• add linting