tests/testthat/objects/random_script.r

In AlbanSagouis/tb: Various functions I gathered or wrote

# Random text
# Discover plugins for your favorite writing, design and blogging tools. Explore the origins, history and meaning of the famous passage, and learn how Lorem Ipsum went from scrambled Latin passage to ubiqitous dummy text. Generate Lorem Ipsum placeholder text for use in your graphic, print and web layouts, and discover plugins for your favorite writing, design and blogging tools. Explore the origins, history and meaning of the famous passage, and learn how Lorem Ipsum went from scrambled Latin passage to ubiqitous dummy text. Generate Lorem Ipsum placeholder text for use in your graphic, print and web layouts, and discover plugins for your favorite writing, design and blogging tools. Explore the origins, history and meaning of the famous passage, and learn how Lorem Ipsum went from scrambled Latin passage to ubiqitous dummy text.

#' Generate Lorem Ipsum placeholder text for use in your graphic, print and web layouts, and discover plugins for your favorite writing, design and blogging tools. Explore the origins, history and meaning of the famous passage, and learn how Lorem Ipsum went from scrambled Latin passage to ubiqitous dummy text.
#' param Generate Lorem Ipsum placeholder text for use in your graphic, print and web layouts, and discover plugins for your favorite writing, design and blogging tools. Explore the origins, history and meaning of the famous passage, and learn how Lorem Ipsum went from scrambled Latin passage to ubiqitous dummy text.
#' details stuff
#' export

## random_2020

# string_to_find

dataset_id <- 'random_2020'

# load(file=paste0('data/raw data/', dataset_id, '/ddata'))

dat <- data.frame(dataset_id = rep(dataset_id, 10))



# dir.create(paste0('data/wrangled data/', dataset_id), showWarnings = FALSE)
# write.csv(dat, paste0('data/wrangled data/', dataset_id, "/", dataset_id, '.csv'),
#           row.names=FALSE)