updated create_epidist_citation example in epidist doc

epiverse-trace · Sep 5, 2023 · b6d9780 · b6d9780
1 parent 6513047
commit b6d9780
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/R/epidist.R b/R/epidist.R
@@ -227,7 +227,9 @@ new_epidist <- function(disease = list(),
 #'   ),
 #'   citation = create_epidist_citation(
 #'     author = "Smith_etal",
-#'     year = 2010,
+#'     year = 2002,
+#'     title = "COVID-19 incubation period",
+#'     journal = "Epi Journal",
 #'     DOI = "10.19832/j.1366-9516.2012.09147.x"
 #'   ),
 #'   metadata = create_epidist_metadata(

diff --git a/R/epidist_utils.R b/R/epidist_utils.R
@@ -406,7 +406,7 @@ create_epidist_citation <- function(author = NA_character_,
 
   if (!inherits(author, "person")) {
     # imperfect solution as library currently only has first author
-    author_names <- unlist(strsplit(x = author, split = "_", fixed = TRUE))
+    author_names <- strsplit(x = author, split = "_", fixed = TRUE)
     authors <- lapply(author_names, utils::as.person)
     authors <- Reduce(c, authors)
   }

diff --git a/man/epidist.Rd b/man/epidist.Rd