data-raw/df_pots.R

In OlivierGranacher/elrtest: What the Package Does (One Line, Title Case)

usethis::use_data_raw()

GN <- stringr::str_pad(as.character(seq(from = 61, to = 179, by = 2)),
                       width = 3,
                       side = 'left',
                       pad = '0')
GN <- paste0('G', GN)

GS <- stringr::str_pad(as.character(seq(from = 62, to = 180, by = 2)),
                       width = 3,
                       side = 'left',
                       pad = '0')
GS <- paste0('G', GS)

FN <- stringr::str_pad(as.character(seq(from = 1, to = 59, by = 2)),
                       width = 3,
                       side = 'left',
                       pad = '0')
FN <- paste0('F', FN)

FS <- stringr::str_pad(as.character(seq(from = 2, to = 60, by = 2)),
                       width = 3,
                       side = 'left',
                       pad = '0')
FS <- paste0('F', FS)

df_pots <- tibble::tibble(pots = as.character(c(FN, GN, FS, GS)))
df_pots$pots_fac <- factor(df_pots$pots, levels = c(FN, GN, FS, GS), ordered = T )
df_pots$hall <- c(rep('N', 90), rep('S', 90))
usethis::use_data(df_pots, overwrite = T)