playlist modifÃ

R/playlist.R

@@ -177,7 +177,7 @@ setPlaylist <- function(playlist, weights = NULL, opts = antaresRead::simOptions
   assertthat::assert_that(length(index_p) == 1)
 
 
-  # if all mc_years must be simulated, desactive playlist
+  # if all mc_years must be simulated, desactive playlist (not in V8)
   if(length(playlist) == length(mc_years))
   {
 
@@ -216,17 +216,19 @@ setPlaylist <- function(playlist, weights = NULL, opts = antaresRead::simOptions
 
   # delete lines with current playlist
 
-  index_d <- grep("playlist",param_data,  fixed = TRUE)
+  index_d <- grep("playlist", param_data,  fixed = TRUE)
+  index_d2 <- grep("playlist_year_weight", param_data,  fixed = TRUE)
+
 
+  saveweigth <- param_data[index_d2]
   index_d <- index_d[index_d != index_p]
 
-  if(is.null(weights)){
-
-    index_p2 <- grep("playlist_year_weight = ",param_data,  fixed = TRUE)
-
-    index_d <- index_d[!index_d %in% index_p2]
-
-  }
+
+
+  # if(is.null(weights)){
+  #   index_p2 <- grep("playlist_year_weight = ",param_data,  fixed = TRUE)
+  #   index_d <- index_d[!index_d %in% index_p2]
+  # }
 
   if(length(index_d) >= 1)
   {
@@ -242,6 +244,9 @@ setPlaylist <- function(playlist, weights = NULL, opts = antaresRead::simOptions
     new_playlist <- c(new_playlist, apply(weights, 1, function(X){
       paste0("playlist_year_weight = " , X[1] - 1,",",format(round(X[2], 6), nsmall = 6))
     })) 
+  }else{
+    if(!is.null(saveweigth))
+    new_playlist <- c(new_playlist, saveweigth )
   }
 
   # add new playlist to the parameters description

inst/studyV8/Ponderation_light/Desktop.ini

@@ -0,0 +1,4 @@
+[.shellclassinfo]
+iconfile = settings/resources/study.ico
+iconindex = 0
+infotip = Antares Study8.0: Ponderation_light

inst/studyV8/Ponderation_light/input/areas/area/optimization.ini

@@ -0,0 +1,11 @@
+[nodal optimization]
+non-dispatchable-power = true
+dispatchable-hydro-power = true
+other-dispatchable-power = true
+spread-unsupplied-energy-cost = 0.000000
+spread-spilled-energy-cost = 0.000000
+
+[filtering]
+filter-synthesis = hourly, daily, weekly, monthly, annual
+filter-year-by-year = hourly, daily, weekly, monthly, annual
+

inst/studyV8/Ponderation_light/input/areas/area/ui.ini

@@ -0,0 +1,15 @@
+[ui]
+x = -9
+y = 30
+color_r = 230
+color_g = 108
+color_b = 44
+layers = 0
+[layerX]
+0 = -9
+
+[layerY]
+0 = 30
+
+[layerColor]
+0 = 230 , 108 , 44

inst/studyV8/Ponderation_light/input/areas/sets.ini

@@ -0,0 +1,6 @@
+[all areas]
+caption = All areas
+comments = Spatial aggregates on all areas
+output = false
+apply-filter = add-all
+

inst/studyV8/Ponderation_light/input/hydro/allocation/area.ini

@@ -0,0 +1,3 @@
+[[allocation]]
+area = 1
+

inst/studyV8/Ponderation_light/input/hydro/common/capacity/creditmodulations_area.txt

@@ -0,0 +1,2 @@
+1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1
+1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1