Nothing
#' @title set Site Information for Fossil Sites
#' @import lubridate
#' @importFrom methods new
#' @importFrom methods slot<-
#' @param x object to be set as dataset,
#' @param datasetid dataset identifier
#' @param database dataset where the dataset came from
#' @param doi DOI
#' @param datasettype type the dataset belongs to
#' @param age_range_old age range old
#' @param age_range_young age range young
#' @param notes notes
#' @param pi_list pi list
#' @param samples taxa objects
#' @export
#' @description Function to create new `dataset` objects for personal analysis.
#' The new object will not be uploaded to the database.
#' @returns `dataset` object
#' @examples {
#' # Create a dataset
#' my_dataset <- set_dataset(database = "EPD",
#' datasettype = "pollen",
#' notes = "my lake")
#' }
set_dataset <- function(x = NA,
datasetid = NA_integer_,
database = NA_character_,
doi = NA,
datasettype = NA_character_,
age_range_old = NA_integer_,
age_range_young = NA_integer_,
notes = NA_character_,
pi_list = NA,
samples = new("samples")) {
function_call <- match.call()
if (suppressWarnings(is.na(x))) {
x <- new("dataset")
if (is.na(datasetid)) {
x@datasetid <- uuid::UUIDgenerate()
} else {
x@datasetid <- datasetid
}
x@database <- database
x@doi <- doi
x@datasettype <- datasettype
x@age_range_old <- age_range_old
x@age_range_young <- age_range_young
x@notes <- notes
x@pi_list <- pi_list
x@samples <- samples
} else {
if (is(x, "dataset")) {
if(length(function_call)>2){
for (i in 3:length(function_call)) {
slot(x, names(function_call)[[i]]) <- eval(function_call[[i]])
}
return(x)
} else {
return(x)
}
} else {
stop("`x` must be a dataset object if it is supplied.")
}
}
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.