View source: R/produce_zenodo_record.R
produce_zenodo_record_from_elter_reporting | R Documentation |
This function allows to deposit a record to
Zenodo repository with the eLTER data reporting
format.
The function use the functions implemented by
zen4r
package.
Blondel, Emmanuel, & Barde, Julien. (2021).
zen4R: R Interface to Zenodo REST API (0.5-2). Zenodo.
https://doi.org/10.5281/zenodo.5741143.
produce_zenodo_record_from_elter_reporting(
x,
saveRDS = FALSE,
filepath = tempdir(),
filename,
mytoken,
record_title,
record_description,
record_authors,
record_license = "CC-BY-SA-4.0",
record_accessRight = "open",
record_version = "1.0",
record_language = "eng",
record_keywords,
record_relatedIdentifier,
record_communities = c("lter-italy", "elter"),
record_grants
)
x |
A |
saveRDS |
A |
filepath |
A |
filename |
A |
mytoken |
A |
record_title |
A |
record_description |
A |
record_authors |
A |
record_license |
A |
record_accessRight |
A |
record_version |
A |
record_language |
A |
record_keywords |
A |
record_relatedIdentifier |
A |
record_communities |
A |
record_grants |
A |
A link (URL) of the deposited record in Zenodo. The user must then:
visit the webpage of record, 2. check the information provided, 3. 'save' and 'publish' the record on Zenodo repository, 4. use the DOI to cite the record.
Alessandro Oggioni, phD oggioni.a@irea.cnr.it
Paolo Tagliolato, phD tagliolato.p@irea.cnr.it
zen4R documentation https://github.com/eblondel/zen4R/wiki
## Not run:
## Not run:
deimsid <- "https://deims.org/8eda49e9-1f4e-4f3e-b58e-e0bb25dc32a6"
time_span <- 2015 # e.g. whole year
time_span <- "20150302-20180415" # e.g. span between two dates
data_topic <- "VEG" # data provider defined abbreviation of "vegetation"
variable_group <- "SPECCOVER" # data provider defined abbreviation
version <- "V20220907"
filename <- reporting_compose_file_name(
deimsid = deimsid,
data_topic = data_topic,
variable_group = variable_group,
time_span = time_span,
version = version
)
data <- dplyr::tribble(
~id, ~value,
1, 7.5,
2, 4.2
)
station <- dplyr::tribble(
~SITE_CODE, ~STATION_CODE, ~STYPE, ~LAT, ~LON, ~ALTITUDE,
deimsid, "IP2", "AREA", 45.340805, 7.88887495, 265
)
method <- dplyr::tribble(
~VARIABLE, ~METH_DESCR,
"COVE_F", "Analysis of ammonium..."
)
research_object <- reporting_produce_data_object_v1.3(
filename = filename,
deimsid = deimsid,
data = data,
station = station,
method = method
)
authors <- tibble::tibble(
name = c("Luke", "Leia"),
surname = c("Skywalker", "Organa"),
affiliation = c("Tatooine", "Alderaan"),
orcid = c("0000-0002-7997-219X", "0000-0002-7997-219X")
)
keywords <- c("Star Wars", "species", "films", "planets")
relatedIdentifiers <- tibble::tibble(
relation = c("isSupplementTo", "isPartOf"),
identifier = c("10.1038/s4150-01-0032", "10.1016/j.2051.06.026")
)
grants <- c("871128", "654359", "871126")
produce_zenodo_record_from_elter_reporting(
x = research_object,
saveRDS = TRUE,
filepath = ".",
filename = filename,
mytoken = mytoken, # generate your Zenodo token
record_title = "The title of eLTER reporting",
record_description = "This is the description of the record of eLTER data
reporting format.",
record_authors = authors,
record_license = "CC-BY-SA-4.0",
record_accessRight = "open",
record_version = "1.0",
record_language = "eng",
record_keywords = keywords,
record_relatedIdentifier = relatedIdentifiers,
record_communities = "lter-italy",
record_grants = grants
)
## End(Not run)
## End (Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.