update version and write out generate zenodo code

Author: lwjohnst86

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: RCubedIntermediate
 Title: "Reproducible Research in R: An Intermediate Workshop on
     Modern Approaches and Workflows to Processing Data"
-Version: 0.1.0
+Version: 1.0
 Authors@R: 
     c(person(given = "Luke",
              family = "Johnston",
@@ -37,6 +37,11 @@ Description: Reproducibility and open scientific practices are
     more details on the course, check out the <a
     href='https://r-cubed-intermediate.rostools.org'>website</a>.
 URL: https://r-cubed-intermediate.rostools.org
+Remotes:  
+    gadenbuie/xaringanthemer,
+    gitlab::rostools/r3,
+    hadley/emo
+Encoding: UTF-8
 Depends: 
     R (>= 4.0.0)
 Imports: 
@@ -61,8 +66,3 @@ Suggests:
     usethis,
     xaringan,
     xaringanthemer
-Remotes: 
-    gadenbuie/xaringanthemer,
-    gitlab::rostools/r3,
-    hadley/emo
-Encoding: UTF-8

R/generate-zenodo-metadata.R

@@ -0,0 +1,49 @@
+library(desc)
+library(tidyverse)
+library(zen4R)
+library(git2r)
+
+authors_df <- desc_get_field("Authors@R") %>%
+    str_remove_all('("|\\(|\\)|,)') %>%
+    str_split("person") %>%
+    map(str_extract_all, pattern = "(given|family|affiliation|ORCID) = .*") %>%
+    flatten() %>%
+    map(as_tibble) %>%
+    map_dfr(separate, col = "value", into = c("name", "value"), sep = " = ", .id = "id") %>%
+    pivot_wider() %>%
+    transmute(name = glue::glue("{family}, {given}"),
+              affiliation = affiliation,
+              orcid = ORCID)
+
+lesson_title <- desc_get_field("Title") %>%
+    str_remove_all("\"") %>%
+    str_remove_all("\\n") %>%
+    str_replace_all(" +", " ") %>%
+    str_replace(":", " -")
+
+description_content <- desc_get_field("Description") %>%
+    str_remove_all("\\n") %>%
+    str_replace_all(" +", " ")
+
+repo <- repository()
+repo_version <- str_c("v", as.character(desc::desc_get_version()))
+version_tag <- tag(repo, name = repo_version, message = "Teaching material used for the Sept 8-9, 2020 course.")
+tag_files <- ls_tree(tree(lookup_commit(version_tag)))
+zip("r-cubed-intermediate.zip", tag_files)
+
+new_record <- ZenodoRecord$new()
+pwalk(authors_df, new_record$addCreator)
+new_record$setUploadType("lesson")
+new_record$setTitle(str_c("r-cubed: ", lesson_title))
+new_record$setDescription(description_content)
+new_record$setLicense("cc-by")
+new_record$addRelatedIdentifier("isCompiledBy", "https://gitlab.com/rostools/r-cubed-intermediate")
+new_record$addRelatedIdentifier("isIdenticalTo", "https://gitlab.com/rostools/r-cubed-intermediate/-/tags/v0.1.0")
+
+zenodo <- ZenodoManager$new(
+    url = "https://sandbox.zenodo.org/api",
+    logger = "INFO"
+)
+
+deposited_record <- zenodo$depositRecord(new_record)
+zenodo$uploadFile("r-cubed-intermediate.zip", deposited_record$id)