Hotfix/add methodology to oa extract

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: wddsWizard
 Title: Data Wizard for a Minimal Wildlife Disease Data Standard
-Version: 0.2.1
+Version: 0.2.2
 Authors@R: 
       person("Collin",
           "Schwantes",

NEWS.md

@@ -1,3 +1,8 @@
+# wddsWizard 0.2.2
+
+- fix issue with package variables in r-universe builds
+- add methodology to openalex metadata extract
+
 # wddsWizard 0.2.1
 
 - fix issue with regex in prep_project_metadata

R/extract_metadata_from_doi.R

@@ -130,6 +130,10 @@ extract_metadata_oa<-function(doi){
   description_df <- data.frame(Description = "FILL ME IN","Description Type" = "abstract",check.names = FALSE) |>
     expand_tidy_dfs(group_prefix = "Descriptions")
 
+  # methodology
+
+  methodology_df <- data.frame(Group = c("Methodology",""),Variable = c("Event Based","Archival"), Value = FALSE)
+
   # fundingReferences
 
   "Funder Name	NSF
@@ -182,7 +186,8 @@ Award Title	Verena Fellow-in-Residence Award"
 
   # rbind data frames
 
-  out <- rbind(creator_df_expanded,
+  out <- rbind(methodology_df,
+               creator_df_expanded,
                title_df_expanded,
                publicationYear_df,
                language_df,

tests/testthat/test-create_schema_docs.R

@@ -1,8 +1,8 @@
 test_that("create_schema_docs works", {
-  expect_no_failure(create_schema_docs())
+  file_path <- wdds_json(version = "latest",file = "wdds_schema.json")
+  expect_no_failure(create_schema_docs(schema_path = file_path))
 })
 
-
 test_that("create_schema_docs fails with non character", {
   expect_error(create_schema_docs(schema_path = 1))
 })