latest version data extraction of SIMO DBs

Main_cPouta.R

@@ -12,7 +12,6 @@ start_time <- Sys.time()
 
 
 ## load libraries
-.libPaths("C:/Devel/R/library")
 library(dplyr)
 
 
@@ -21,7 +20,7 @@ library(dplyr)
 path <- paste0(getwd())
 
 ### Running on cPouta or WIN local
-on_cPouta <- FALSE
+on_cPouta <- TRUE
 
 ### Do the SQL queries for the DB (only needed first time!)
 Process_SQL_Query <- TRUE
@@ -35,7 +34,7 @@ Process_CSV_export_from_DB <- TRUE
 # Define name of genereated Optimization CSV file
 # ------------------------------------------------
 
-outp_name <- "rslt_RCP85_FIN_V1"
+outp_name <- "rslt_RCP26_FIN_V1"
 
 
 
@@ -54,8 +53,8 @@ if(on_cPouta == TRUE) {
   numCores <- detectCores()
   numCores
   
-  inputFolder <- "/media/volume/outp_rcp0_test/simulated"
-  outputFolder <- "/media/volume/outp_rcp0_test"
+  inputFolder <- "/media/volume/outp_rcp26/simulated"
+  outputFolder <- "/media/volume/outp_rcp26"
 
 } else {
   # for Windows

MultiForest/check_simulated_db.R

@@ -28,14 +28,12 @@ if(on_cPouta == TRUE) {
   library(doParallel)
   numCores <- detectCores()
   numCores
-  inputFolder <- "/media/volume/outp_rcp85"
+  inputFolder <- "/media/volume/outp_rcp26"
  
 } else {
   # for Windows
   inputFolder  <- paste(path, "input_data/FIN", sep = "/")
-  # .libPaths()
-  .libPaths("C:/Devel/R/library")
- 
+  
 }
 
 

prepare_opt_data_KE.R

@@ -14,8 +14,6 @@ library(tidyr)
 library(ggplot2)
 library(kableExtra)
 
-#Check time:
-start_time <- Sys.time()
 
 
 # README: 
@@ -674,9 +672,7 @@ print("*** csv with XY-coordinates saved ***")
 
 print("*** All data preperation is done ***")
 
-print("TIME TAKEN FOR CREATING OPTIMIZATION DATA: ")
-end_time <- Sys.time()
-end_time - start_time
+