Nothing
Pallets2 <-
Pallets %>%
group_by(day) %>% mutate(total = sum(pallets)) %>%
group_by(day, employee) %>% mutate(perc = 100 * pallets / total)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.