prepend "NSF" to award numbers for funding section

jeanetteclark · Nov 15, 2019 · d8bed9c · d8bed9c
1 parent b46cf06
commit d8bed9c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/eml.R b/R/eml.R
@@ -1064,6 +1064,7 @@ eml_nsf_to_project <- function(awards){
   i <- lapply(result, function(x) {!is.null(x)})
   result <- result[unlist(i)]
   award_nums <- award_nums[unlist(i)]
+  award_nums <- paste("NSF", award_nums)
 
   if (length(award_nums) > 0){
     co_pis <- lapply(result, function(x){