Merge pull request #588 from tscheypidi/develop

bugfix in output.R

CHANGELOG.md

@@ -21,6 +21,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 
 ### fixed
 - **scripts** fixed output/extra/disaggregation_LUH2.R. The script was not working any more because magpie4::protectedArea was changed to return protected area for all land types. Moreover, the script now also works for runs without dynamic forestry (default run) but with a warning message.
+- **scripts** fixed erronoeous if clause in output.R
 - **scripts** check_config does not warn about c_input_gdx_path anymore while running empty model
 
 ## [4.6.9] - 2023-07-27

output.R

@@ -64,7 +64,7 @@ runOutputs <- function(comp=NULL, output=NULL, outputdir=NULL, submit=NULL) {
     }
     identifier <- tmp
     # PATTERN
-    if(length(identifier==1) && identifier==(length(dirs)+1)){
+    if(length(identifier) == 1 && identifier == length(dirs) + 1) {
       cat("\nInsert the search pattern or the regular expression: ")
       pattern <- gms::getLine()
       id <- grep(pattern=pattern, dirs[-1], perl=TRUE)