data-raw/internal_colors.R

In kcucchi/HZinv: Supports HZ 1D inversion project

# 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)