data-raw/example_data.R

#!/usr/bin/env Rscript

pmn_platelist_filepath <- "data-raw/example_data_pmn_platelist_H1N1.csv"
example_data_pmn_platelist_H1N1 <- utils::read.csv(pmn_platelist_filepath,
  header=TRUE,
  stringsAsFactors=FALSE,
  check.names=FALSE
)
usethis::use_data(example_data_pmn_platelist_H1N1, overwrite = TRUE)

pmn_plate_filepath <- "data-raw/example_data_pmn_plate_n1.csv"
example_data_pmn_plate_n1 <- utils::read.csv(pmn_plate_filepath,
  header=TRUE,
  stringsAsFactors=FALSE,
  check.names=FALSE
)
usethis::use_data(example_data_pmn_plate_n1, overwrite = TRUE)

column_descriptions_filepath <- "data-raw/example_data_column_descriptions.csv"
example_data_column_descriptions <- utils::read.csv(column_descriptions_filepath,
  header=TRUE,
  stringsAsFactors=FALSE,
  check.names=FALSE
)
usethis::use_data(example_data_column_descriptions, overwrite = TRUE)
PhilPalmer/AutoPlate documentation built on Dec. 18, 2021, 7:41 a.m.