From 6d24a6eece534428bcd412aa4e40b8ad17c66723 Mon Sep 17 00:00:00 2001
From: laresbernardo <laresbernardo@gmail.com>
Date: Wed, 23 Nov 2022 12:27:32 -0500
Subject: [PATCH] recode: landing v3.8.2

---
 R/R/model.R | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/R/R/model.R b/R/R/model.R
index eb448b802..accea2024 100644
--- a/R/R/model.R
+++ b/R/R/model.R
@@ -832,12 +832,8 @@ robyn_mmm <- function(InputCollect,
               mediaDecompImmediate,
               mediaDecompCarryover
             ) %>%
-              # bind_cols(data.frame(t(common[1:8]))) %>%
-              # mutate(intercept = decompCollect$xDecompAgg$xDecompAgg[
-              #   decompCollect$xDecompAgg$rn == "(Intercept)"
-              # ]) %>%
-              # bind_cols(data.frame(t(common[9:11]))) %>%
-              mutate(solID = paste(trial, lng, i, sep = "_"))
+              mutate(solID = paste(trial, lng, i, sep = "_")) %>%
+              select(.data$solID, dplyr::everything())
 
             resultCollect[["xDecompAgg"]] <- decompCollect$xDecompAgg %>%
               bind_cols(data.frame(t(common)))