fix: plot error with paid_media_spends #1204

- Minor fix and tested on dummy data locally. Works as expected.

R/DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Robyn
 Type: Package
 Title: Semi-Automated Marketing Mix Modeling (MMM) from Meta Marketing Science 
-Version: 3.12.0.9003
+Version: 3.12.0.9004
 Authors@R: c(
     person("Gufeng", "Zhou", , "[email protected]", c("cre", "aut")),
     person("Igor", "Skokan", , "[email protected]", c("aut")),

R/R/plots.R

@@ -174,7 +174,7 @@ robyn_plots <- function(
     if (length(temp_all) > 0) {
       xDecompAgg <- temp_all$xDecompAgg
       dt_ridges <- xDecompAgg %>%
-        filter(.data$rn %in% InputCollect$paid_media_spends) %>%
+        filter(.data$rn %in% InputCollect$paid_media_vars) %>%
         mutate(iteration = (.data$iterNG - 1) * OutputCollect$cores + .data$iterPar) %>%
         select(variables = .data$rn, .data$roi_total, .data$iteration, .data$trial) %>%
         arrange(.data$iteration, .data$variables)
@@ -317,7 +317,7 @@ robyn_onepagers <- function(
 
     plotMediaShare <- filter(
       xDecompAgg, .data$robynPareto == pf,
-      .data$rn %in% InputCollect$paid_media_spends
+      .data$rn %in% InputCollect$paid_media_vars
     )
     uniqueSol <- unique(plotMediaShare$solID)