handle case when no rightsholder and funder are defined

inbo · Sep 14, 2024 · b4f001c · b4f001c
1 parent 47543af
commit b4f001c
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/check_description.R b/R/check_description.R
@@ -311,9 +311,13 @@ check_authors <- function(this_desc, org) {
       )
       funder <- NULL
     }
-  } else if (!is.na(org$get_funder)) {
+  } else {
     rightsholder <- NULL
-    funder <- person(given = org$get_funder, role = "fnd")
+    if(!is.na(org$get_funder)) {
+      funder <- person(given = org$get_funder, role = "fnd")
+    } else {
+      funder <- NULL
+    }
   }
 
   problems <- c(