removed first_load true as the script should be used just once, no need for further specifications

Main.R

@@ -114,25 +114,31 @@ db_names <- gsub(".db", "", db_input)
 
 first_load = FALSE
 
+if (sim_variant %in% all.variants ){
+  print("YES")
+} else {
+  print("NO")
+}
 
 ### the following lines do not need any changes ###
-if(first_load == TRUE){
 
-  # If one of the follwing simulation variants is read ...
-  if(sim_variant %in% all.variants ) {
+
+# If one of the follwing simulation variants is read ...
+if(sim_variant %in% all.variants ) {
+  print("sim_varian is in all variants")
     
-    # Run the script with the SQL query for all management regimes
-    source(paste0(path, "/structure_SIMO_rslDB_FBE.R"))  
+  # Run the script with the SQL query for all management regimes
+  source(paste0(path, "/structure_SIMO_rslDB_FBE.R"))  
   
-    } else {
-    
-      # Otherwise, run the script witht the SQL query for Set aside without deadwood extraction (...SA)
-      # This needs a different SQL query, since the database does not contain harvest information
-      source(paste0(path, "/structure_SIMO_rslDB_SA.R")) # Query 
+  } else {
+  print("!!!else")
+  # Otherwise, run the script witht the SQL query for Set aside without deadwood extraction (...SA)
+  # This needs a different SQL query, since the database does not contain harvest information
+  source(paste0(path, "/structure_SIMO_rslDB_SA.R")) # Query 
       
-      }
-
 }
+
+
 ###
 
 
@@ -153,6 +159,7 @@ columns <-  paste0("id,
                    BA,
                    V,
                    N,
+                   SC,
                    H_dom,
                    D_gm,
                    Harvested_V,