fix typos to close issue nationalparkservice#122

RobLBaker · Jan 17, 2025 · f1508d9 · f1508d9
1 parent 8d845f9
commit f1508d9
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/inst/rmarkdown/templates/NPS_DRR/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/NPS_DRR/skeleton/skeleton.Rmd
@@ -172,7 +172,7 @@ if(length(seq_along(unique_authors$author_names)) == 1){
     }
   }
    cat("#### ", curr$author_names, sep="")
-        if (is.na(curr$author_orcidD)) {
+        if (is.na(curr$author_orcid)) {
         }
         if (!is.na(curr$author_orcid)) {
           orc <- paste0(" ", curr$author_orcid, "")
@@ -220,7 +220,7 @@ if(length(seq_along(unique_authors$author_names)) > 1){
       cat("#### ", curr$author_names, " ", sep="")
         if (is.na(curr$author_orcid)) {
         }
-        if (!is.na(curr$author_orcidD)) {
+        if (!is.na(curr$author_orcid)) {
           orc <- paste0(" ", curr$author_orcid, " ")
           cat({{ orc }})
         }
@@ -258,7 +258,7 @@ if(length(seq_along(unique_authors$author_names)) > 1){
     }
     
     # if IS the Last author :
-    if(i == length(seq_along(unique_authors$author_namess))){
+    if(i == length(seq_along(unique_authors$author_names))){
       cat(curr$author_names, sep="")
         if (is.na(curr$author_orcid)) {
         }