fix small bug due to updated package

csalvato · Jul 6, 2016 · 0387812 · 0387812
1 parent 1c57d93
commit 0387812
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/BingUtilities/R/click_through_rate_over_time.r b/BingUtilities/R/click_through_rate_over_time.r
@@ -31,7 +31,7 @@ click_through_rate_over_time <- function(keywords_elog, plot = TRUE, plot_png_fi
 		    geom_bar(stat="identity", position="dodge") +
 		    ggtitle("Bing - Weekly CTR by Keyword") +
 		    # ylim(0, 0.30) +
-		    facet_wrap(~keyword, ncol=2)
+		    facet_grid(~keyword)
 		report.plot( the_plot, plot_png_file )
 	}
 

diff --git a/PowerSupplyUtilities/R/create_adwords_event_log.r b/PowerSupplyUtilities/R/create_adwords_event_log.r
@@ -33,7 +33,7 @@ create_adwords_event_log <- function(from=Sys.Date(),
   db_first_transactions  <- get_first_transaction_dates_for_users(from=from, to=to, users=db_transactions$app_user_id)
 
   # Join Mixpanel Conversion Data with transaction data
-  unique_users <- distinct(mixpanel_adwords_conversions, app_user_id)
+  unique_users <- distinct(mixpanel_adwords_conversions, app_user_id, .keep_all=TRUE)
   db_transactions  <- db_transactions %>% inner_join(unique_users, by="app_user_id")
 
   #Filter out people where their first order was not in the specified start date and end date

diff --git a/PowerSupplyUtilities/R/create_bing_event_log.r b/PowerSupplyUtilities/R/create_bing_event_log.r
@@ -40,7 +40,7 @@ create_bing_event_log <- function(from=Sys.Date(),
   db_first_transactions  <- get_first_transaction_dates_for_users(from=from, to=to, users=db_transactions$app_user_id)
 
   # Join Mixpanel Conversion Data with transaction data
-  unique_users <- distinct(mixpanel_bing_conversions, app_user_id)
+  unique_users <- distinct(mixpanel_bing_conversions, app_user_id, .keep_all=TRUE)
   db_transactions  <- db_transactions %>% inner_join(unique_users, by="app_user_id")
 
   #Filter out people where their first order was not in the specified start date and end date

diff --git a/PowerSupplyUtilities/R/create_google_display_event_log.r b/PowerSupplyUtilities/R/create_google_display_event_log.r
@@ -27,7 +27,7 @@ create_google_display_event_log <- function(from=Sys.Date(),
   db_first_transactions  <- get_first_transaction_dates_for_users(from=from, to=to, users=db_transactions$app_user_id)
 
   # Join Mixpanel Conversion Data with transaction data
-  unique_users <- distinct(mixpanel_adwords_conversions, app_user_id)
+  unique_users <- distinct(mixpanel_adwords_conversions, app_user_id, .keep_all=TRUE)
   db_transactions  <- db_transactions %>% inner_join(unique_users, by="app_user_id")
 
   #Filter out people where their first order was not in the specified start date and end date