inst/data-raw/CreateTBIExtracts.R

In nekrum/NeurocienciasIntroData: Paquete con Datos y Tutorales de Análisis de Datos

library(data.table)

data.url <- "http://aging.brain-map.org/api/v2/well_known_file_download/502999992"
download.file(data.url, "inst/data-raw/tbi_data.zip")

column.samples <- fread(cmd = "unzip -p inst/data-raw/tbi_data.zip columns-samples.csv")
for(col in names(column.samples))
  set(column.samples, j = col, value = factor(column.samples[[col]]))

rows.genes <- fread(cmd = "unzip -p inst/data-raw/tbi_data.zip rows-genes.csv")
for(col in names(rows.genes))
  set(rows.genes, j = col, value = factor(rows.genes[[col]]))

usethis::use_data(column.samples, rows.genes, overwrite = TRUE)