bugfix LCOEplot.R, add a few orcid links to citation

CITATION.cff

@@ -4,18 +4,22 @@ authors:
 
 - family-names: Luderer
   given-names:  Gunnar
+  orcid: https://orcid.org/0000-0002-9057-6155
   affiliation: "Potsdam Institute for Climate Impact Research"
   
 - family-names: Bauer
   given-names:  Nico
+  orcid: https://orcid.org/0000-0002-0211-4162
   affiliation: "Potsdam Institute for Climate Impact Research"
 
 - family-names: Baumstark
   given-names:  Lavinia
+  orcid: https://orcid.org/0000-0002-6979-6671
   affiliation: "Potsdam Institute for Climate Impact Research"
   
 - family-names: Bertram
   given-names:  Christoph
+  orcid: https://orcid.org/0000-0002-0933-4395
   affiliation: "Potsdam Institute for Climate Impact Research"
   
 - family-names: Leimbach
@@ -24,10 +28,12 @@ authors:
   
 - family-names: Pietzcker
   given-names:  Robert
+  orcid: https://orcid.org/0000-0002-9403-6711
   affiliation: "Potsdam Institute for Climate Impact Research"
   
 - family-names: Strefler
   given-names:  Jessica
+  orcid: https://orcid.org/0000-0002-5279-4629
   affiliation: "Potsdam Institute for Climate Impact Research"  
 
 - family-names: Aboumahboub
@@ -43,6 +49,7 @@ authors:
 
 - family-names: Dietrich
   given-names:  Jan
+  orcid: https://orcid.org/0000-0002-4309-6431
   affiliation: "Potsdam Institute for Climate Impact Research"
 
 - family-names: Dirnaichner
@@ -52,6 +59,7 @@ authors:
 
 - family-names: Giannousakis
   given-names:  Anastasis
+  orcid: https://orcid.org/0000-0002-4225-0011
   affiliation: "Potsdam Institute for Climate Impact Research"
 
 - family-names: Haller
@@ -59,6 +67,7 @@ authors:
 
 - family-names: Hilaire
   given-names:  Jerome
+  orcid: https://orcid.org/0000-0002-9879-6339
   affiliation: "Potsdam Institute for Climate Impact Research"
 
 - family-names: Klein

scripts/output/comparison/policyCosts.R

@@ -148,7 +148,7 @@ ref_names <- rm_timestamp(basename(dirname(ref_gdxs)))
 pc_pairs <- paste0(pol_names, "_w.r.t_",ref_names)
 
 # If this scrpit was called from output.R, check with user if the pol-ref pairs 
-# are the ones he wanted. 
+# are the ones she wanted. 
 if(exists("source_include")) {
   cat(crayon::blue("\nPlease confirm the set-up:\n"))
   cat("From the order with which you selected the directories, the following policy-cost curves will be created:\n")
@@ -165,7 +165,7 @@ if(exists("source_include")) {
   } else cat(crayon::green("Great!\n"))
 }
 
-# Tell the user what's going on
+# Tell the user what is going on
 cat(crayon::blue("\nPolicy cost computations:\n"))
 
 # Get Policy costs for every policy-reference pair
@@ -187,7 +187,7 @@ policy_costs <- policy_costs %>%
   pivot_longer(cols = matches(".*w\\.r\\.t.*"), names_to = "Model Output") %>% 
   pivot_wider(names_from = data)
 
-# Tell the user what's going on
+# Tell the user what is going on
 cat(crayon::green("Done!\n"))
 
 # Create Pdf

scripts/output/single/LCOEPlot.R

@@ -13,16 +13,16 @@ library(lusweave)
 
 if(!exists("source_include")) {
   #Define arguments that can be read from command line
-  outputdirs <- c("C:/work/REMIND_tests/Trunk_latest/output/BAU_Nash_2019-02-13_12.27.58");   
+  outputdir <- c("C:/work/REMIND_tests/Trunk_latest/output/BAU_Nash_2019-02-13_12.27.58");   
   # path to the output folder
-   readArgs("outputdirs")
+   lucode::readArgs("outputdir")
 } 
 
 ###############################################################################
 
 # Set mif path
-scenNames <- getScenNames(outputdirs)
-mif_path  <- path(outputdirs,paste("REMIND_LCOE_",scenNames,".mif",sep=""))
+scenNames <- getScenNames(outputdir)
+mif_path  <- path(outputdir,paste("REMIND_LCOE_",scenNames,".mif",sep=""))
 
 
 # run plot LCOE function