Nothing
# set up data to test plotting
stages <- subset(GTS2020, rank == "stage")
periods <- subset(GTS2020, rank == "period")
epochs <- subset(GTS2020, rank == "epoch")
reef_df <- look_up(occdf = reefs, early_interval = "interval",
late_interval = "interval", int_key = interval_key)
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.