customer = read.csv("/Users/macbook/Desktop/GymBeam/derived.csv",header = T, na.strings = c("","NA"))
popularne_categorie = read.csv("/Users/macbook/Desktop/GymBeam/popularne_kategorie.csv",header = T, na.strings = c("","NA"))
popularne_item_categorie = read.csv("/Users/macbook/Desktop/GymBeam/popularne_itemy_kategoria.csv",header = T, na.strings = c("","NA"))
co_zakaznik_kupuje= read.csv("/Users/macbook/Desktop/GymBeam/co_zakaznik_kupuje.csv",header = T, na.strings = c("","NA"))
all = read.csv("/Users/macbook/Desktop/GymBeam/final.csv",header = T, na.strings = c("","NA"))


unique(customer$basket_categories)


#najcastejsie kategorie danemu emailu
attach(popularne_categorie)
kategorie = popularne_categorie[popularne_categorie$so_customer_email == "c7a041945efc9b4605e4a55b0c142462",]
for (i in 1:10) {
  isChoosen = FALSE
  pocitadlo_kategoria = 0;

  while (!isChoosen || pocitadlo_kategoria < 3) {


  }
  naj_kategoria =  kategorie[which.max(kategorie$ct),]
  row_sub = apply(kategorie, 1, function(row) all(row !=0 ))
  kategorie[row_sub,]

  popularne_item_categorie = na.omit(popularne_item_categorie , cols="product_category_id")
  isUsed = TRUE
  pocitadlo = 0
  while (isUsed || pocitadlo < 5) {
    #najtrendovejsi produkt v danej kategorii
    items = popularne_item_categorie[popularne_item_categorie$product_category_id == najpopularnejsia_kategoria$product_category_id ,]
    najpopularnejsia_item = najpopularnejsia_item[which.max(najpopularnejsia_item$ct),]

    #zistit ci dany produkt uz nekupil
    customer = all[all$so_customer_email == "c7a041945efc9b4605e4a55b0c142462",]
    customer = na.omit(customer , cols="basket_items")
    isUsed = najpopularnejsia_item$soi_product_id %in% customer$soi_product_id
    i = i+1;
    items[which.max(items$ct),] <- NA
    items<-na.omit(items , cols="soi_product_id")
  }

  #ak nema kupeny tak odporuc
  recommended_product[i] = najpopularnejsia_item$soi_product_id

  kategorie[which.max(kategorie$ct),] <- NA
  kategorie<-na.omit(kategorie , cols="so_customer_email")

}