data-raw/hmp1_2_metadata.R

hmp1_2_metadata <- read.csv2("data-raw/hmp1_2_metadata.tsv",
                          sep = "\t", header = T)
hmp1_2_metadata <- hmp1_2_metadata[which(hmp1_2_metadata$SRS != "#N/A"),]

usethis::use_data(hmp1_2_metadata, overwrite = TRUE)
philippmuench/PMtools documentation built on Dec. 27, 2019, 8:08 a.m.