data-raw/CreateInternalData.R

In dinilu/EPDr: Interact with the European Pollen Database (EPD)

#' Calibration tables for 14C and postbomb calibrations
#'
#' Internal dataset with calibration tables for use in the calibration functions
#'
#' @format Tables with ...
#' \describe{
#'   \item{Column1}{Describir}
#'   \item{Column2}{Describir}
#'   \item{Column3}{Describir}
#'   ...
#' }
#' 
#' @export
#' 
#' @source \url{http://chrono.qub.ac.uk/blaauw/clam.html}

# Loading all the data from the original CLAM data
IntCal13.14C <- read.table("data-raw/CalibrationCurves/IntCal13.14C")
Marine13.14C <- read.table("data-raw/CalibrationCurves/Marine13.14C")
SHCal13.14C <- read.table("data-raw/CalibrationCurves/SHCal13.14C")
postbomb_NH1.14C <- read.table("data-raw/CalibrationCurves/postbomb_NH1.14C")
postbomb_NH2.14C <- read.table("data-raw/CalibrationCurves/postbomb_NH2.14C")
postbomb_NH3.14C <- read.table("data-raw/CalibrationCurves/postbomb_NH3.14C")
postbomb_SH1_2.14C <- read.table("data-raw/CalibrationCurves/postbomb_SH1-2.14C")
postbomb_SH3.14C <- read.table("data-raw/CalibrationCurves/postbomb_SH3.14C")

#' Postbomb zones of the world
#'
#' Internal shapefile with postbomb zones of the world. This is mean to extract the data from the site points to correctly feed CLAM
#'
#' @format Shapefile
#' \describe{
#'   \item{Column1}{Describir}
#'   ...
#' }
#' 
#' @export
#' 
#' @source \url{http://calib.qub.ac.uk/CALIBomb/}
#' @source \url{https://journals.uair.arizona.edu/index.php/radiocarbon/article/view/16177/pdf}
#' @source \reference{RADIOCARBON 55(4): 2059–2072. 2013. ATMOSPHERIC RADIOCARBON FOR THE PERIOD 1950–2010. Quan Hua, Mike Barbetti, Andrzej Z Rakowski}

library(maptools)

postbomb.map <- maptools::readShapePoly("data-raw/PostBombMap/PostBombZones")


#' Validated sample ages from 823 EPD sites (Giesecke et al. 2013)
#'
#' Internal dataset with new validated ages from 823 EPD sites
#'
#' @format Data.frames
#' \describe{
#'   \item{Column1}{Describir}
#'   ...
#' }
#' 
#' @export
#' 
#' @source \url{https://doi.pangaea.de/10.1594/PANGAEA.804597}
#' @source \url{https://journals.uair.arizona.edu/index.php/radiocarbon/article/view/16177/pdf}
#' @source \reference{RADIOCARBON 55(4): 2059–2072. 2013. ATMOSPHERIC RADIOCARBON FOR THE PERIOD 1950–2010. Quan Hua, Mike Barbetti, Andrzej Z Rakowski}

giesecke.agebasis <- read.table("data-raw/Giesecke/Control_P.tab", header=T, sep="\t", skip=845, quote="")
colnames(giesecke.agebasis) <- stringi::stri_trans_general(colnames(giesecke.agebasis), "latin-ascii")
giesecke.entity <- read.table("data-raw/Giesecke/Entity.tab", header=T, sep="\t", skip=843, quote="")
colnames(giesecke.entity) <- stringi::stri_trans_general(colnames(giesecke.entity), "latin-ascii")
giesecke.EpdAgeAll <- read.table("data-raw/Giesecke/EpdAgeAll.tab", header=T, sep="\t", skip=842, quote="")
colnames(giesecke.EpdAgeAll) <- stringi::stri_trans_general(colnames(giesecke.EpdAgeAll), "latin-ascii")
giesecke.EpdAgeCut <- read.table("data-raw/Giesecke/EpdAgeCut.tab", header=T, sep="\t", skip=842, quote="")
colnames(giesecke.EpdAgeCut) <- stringi::stri_trans_general(colnames(giesecke.EpdAgeCut), "latin-ascii")


# Saving the data
devtools::use_data(IntCal13.14C, Marine13.14C, SHCal13.14C, postbomb_NH1.14C, postbomb_NH2.14C, postbomb_NH3.14C, postbomb_SH1_2.14C, postbomb_SH3.14C, postbomb.map, giesecke.agebasis, giesecke.entity, giesecke.EpdAgeAll, giesecke.EpdAgeCut, internal=TRUE, overwrite=T)