# creates internal variables for plotting
#'
#' # Generate vector for depth colors #
#'
# choose palette from RColorBrewer
colsSet <- terrain.colors(7)
col_z <- c(z_top = colsSet[1],
z_1 = colsSet[2],
z_2 = colsSet[3],
z_3 = colsSet[4],
z_bottom = colsSet[5])
#'
#' # Save into internal datafile #
#'
devtools::use_data(col_z, internal = TRUE,overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.