Guest User

Untitled

a guest
Jan 21st, 2018
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.46 KB | None | 0 0
  1. > head(featured_products)
  2. Dept Class Sku Description Code Vehicle/Placement StartDate EndDate Comments(Circulation,Location,etc)
  3. 1: 430 4318 401684 ++INDV RAMEKIN WP 9CM OSM Facebook 2017-01-01 2017-01-29 Fancy Brunch Blog
  4. 2: 430 4318 401684 ++INDV RAMEKIN WP 9CM OSM Twitter 2017-01-01 2017-01-29 Fancy Brunch Blog
  5. 3: 340 3411 1672605 ++ SPHERE WILLOW 4" OP1 Editorial 2016-02-29 2016-03-27 Spruce up for Spring
  6. 4: 230 2311 2114074 ++BOX 30 ISLAND ORCHRD TLIGHTS EM Email 2016-02-17 2016-02-17 Island Orchard and Jeweled Lanterns
  7. 5: 895 8957 2118072 ++PAPASAN STL TAUPE OSM Instagram 2017-08-26 2017-10-01 by @audriestorme
  8. 6: 895 8957 2118072 ++PAPASAN STL TAUPE EM Email 2017-11-23 2017-11-23 Day 2 Black Friday AM
  9.  
  10. SKU ActivityDate OnlineSalesQuantity OnlineDiscountPercent InStoreSalesQuantity InStoreDiscountPercent
  11. 1: 401684 2015-12-01 150 0.00 406 2.72
  12. 2: 401684 2015-12-02 0 0.00 556 3.79
  13. 3: 401684 2015-12-03 0 0.00 723 3.44
  14. 4: 401684 2015-12-04 16 4.91 781 2.46
  15. 5: 401684 2015-12-05 17 0.00 982 3.18
  16. 6: 401684 2015-12-06 0 0.00 851 3.12
  17.  
  18. library(lubridate)
  19. library(plyr)
  20.  
  21. featured_products <- data.frame(SKU=c(401684,1672605), StartDate=c("2017-01-01", "2016-02-29"), EndDate=c("2017-01-29", "2016-03-27"))
  22. sales <- data.frame(SKU=c(401684,401684, 1672605), ActivityDate=c("2017-01-01", "2016-01-01", "2016-03-22"))
  23.  
  24. output <- plyr::join(sales, featured_products, by="SKU")
  25.  
  26. output$ActivityDate <- ymd(output$ActivityDate)
  27. output$StartDate <- ymd(output$StartDate)
  28. output$EndDate <- ymd(output$EndDate)
  29.  
  30. output$featured <- ifelse(output$ActivityDate>=output$StartDate & output$ActivityDate<=output$EndDate,1,0)
  31.  
  32. SKU ActivityDate StartDate EndDate featured
  33. 1 401684 2017-01-01 2017-01-01 2017-01-29 1
  34. 2 401684 2016-01-01 2017-01-01 2017-01-29 0
  35. 3 1672605 2016-03-22 2016-02-29 2016-03-27 1
Add Comment
Please, Sign In to add comment