fix: adapt robyn_performance() to Robyn 3.12.0 update

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: lares
 Type: Package
 Title: Analytics & Machine Learning Sidekick
-Version: 5.2.10.9002
+Version: 5.2.10.9003
 Authors@R: c(
     person("Bernardo", "Lares", , "[email protected]", c("aut", "cre")))
 Maintainer: Bernardo Lares <[email protected]>

R/robyn.R

@@ -533,6 +533,7 @@ robyn_performance <- function(
     solID = NULL, totals = TRUE,
     marginals = FALSE, carryovers = FALSE,
     quiet = FALSE, ...) {
+  dt_mod <- InputCollect$dt_mod
   df <- OutputCollect$mediaVecCollect
   if (!is.null(solID)) {
     if (length(solID) > 1) {
@@ -554,22 +555,30 @@ robyn_performance <- function(
   stopifnot(start_date <= end_date)
 
   # Filter data for ID, modeling window and selected date range
+  dt_mod <- dt_mod %>%
+    filter(
+      .data$ds >= InputCollect$window_start,
+      .data$ds <= InputCollect$window_end,
+      .data$ds >= start_date, .data$ds <= end_date
+    ) %>%
+    mutate(solID = solID, type = "rawSpend") %>%
+    select(c("ds", "solID", "type", InputCollect$all_media))
   df <- df[df$solID %in% solID, ] %>%
     filter(
       .data$ds >= InputCollect$window_start,
       .data$ds <= InputCollect$window_end,
       .data$ds >= start_date, .data$ds <= end_date
     ) %>%
     select(c("ds", "solID", "type", InputCollect$all_media))
-  if (nrow(df) == 0 && !quiet) {
+  if (nrow(dt_mod) == 0 && !quiet) {
     warning(sprintf(
       "No data for model %s within modeling window (%s:%s) and date range filtered (%s:%s)",
       solID, InputCollect$window_start, InputCollect$window_end,
       start_date, end_date
     ))
     return(NULL)
   }
-  spends <- df %>%
+  spends <- dt_mod %>%
     filter(.data$type == "rawSpend") %>%
     summarise_if(is.numeric, function(x) sum(x, na.rm = TRUE))
   response <- df %>%