Я пытаюсь очистить некоторые данные от zappos.com.Я хочу очищать данные каждый день в одно и то же время и хранить все эти данные в одном фрейме или файле.Как мне это сделать?
Моя текущая база данных на сегодняшний день выглядит следующим образом.Я просто хочу, чтобы код продолжал работать каждый день в одно и то же время и продолжал добавлять строки в этот фрейм данных. 
Это мой код (часть его):
webpage2 <- read_html("https://www.zappos.com/adidas-
shoes/CK_XAVoBAeABAeICAwELHA.zso")
adidas_sale_count_html <- html_nodes(webpage2, '.selectedFacet
._2TdLt')
adidas_sale_count <- html_text(adidas_sale_count_html)
adidas_sale_count <- as.character(adidas_sale_count)
adidas_sale_count <- gsub("[()]","", adidas_sale_count)
head(adidas_sale_count)
shoes <- data.frame(Date = Sys.Date(),Originals_on_Sale =
adiori_sale_count, Originals_Total = adiori_total_count, Adidas_on_Sale
= adidas_sale_count, Adidas_Total = adidas_total_count)
Любая помощь будет оценена.Спасибо