R/objects.R

In tjebo/maiaR: Microperimetry analysis for centervue's maia and compass data

#' maia_palette
#' @description color palette for maia colors
#' @export
maia_palette <- c(red = '#ca0020', cyan = '#2166ac', mesopic = 'Grey35', cr_diff = '#de77ae')

#' vec_normpositions
#' @description vector with positions in order to create level order
#' @export
vec_normpositions <- c("0_0", "1_0", "1_30", "1_60", "1_90", "1_120", "1_150", "1_180",
  "1_210", "1_240", "1_270", "1_300", "1_330", "2_0", "2_180",
  "3_0", "3_30", "3_60", "3_90", "3_120", "3_150", "3_180", "3_210",
  "3_240", "3_270", "3_300", "3_330", "4_0", "4_180", "5_0", "5_30",
  "5_60", "5_90", "5_120", "5_150", "5_180", "5_210", "5_240",
  "5_270", "5_300", "5_330", "6_0", "6_180", "7_0", "7_30", "7_60",
  "7_90", "7_120", "7_150", "7_180", "7_210", "7_240", "7_270",
  "7_300", "7_330", "8_0", "8_180", "9_0", "9_30", "9_60", "9_90",
  "9_120", "9_150", "9_180", "9_210", "9_240", "9_270", "9_300",
  "9_330", "10_0", "10_180")

# lookup vector for test type
lu_test_type <- c(`0` = "mesopic", `1` = "mesopic", `6` = "cyan", `7` = "red")