inst/data-raw/CreateNeuromorpherExtracts.R

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

library(neuromorphr)
library(tibble)
library(dplyr)


neocortex.animal.size <- neuromorpho_search(
  search_terms = c("species:elephant,humpback whale,rat", "brain_region:neocortex")
) %>%
  select(
    species, brain_region, cell_type, domain, soma_surface, surface, volume, sex, age_classification,
    min_age, max_age
  ) %>%
  remove_rownames()

principal.cell.diff <- neuromorpho_search(
  search_terms= c("species:turtle,zebrafish,rat", "cell_type:principal%20cell")
) %>%
  select(
    species, brain_region, cell_type, domain, soma_surface, surface, volume, sex, age_classification, min_age, max_age
  ) %>%
  remove_rownames()

cell.type.diff <- neuromorpho_search(
  search_terms= c("species:rat", "cell_type:principal%20cell,Glia,interneuron,sensory")
)  %>%
  select(
    species, brain_region, cell_type, domain, soma_surface, surface, volume, sex, age_classification, min_age, max_age
  ) %>%
  remove_rownames()

usethis::use_data(neocortex.animal.size, principal.cell.diff, cell.type.diff, overwrite = TRUE)