ROBOT

Este aplicativo tem como objetivo visualizar o preço do produto no site a cada cinco minutos.

https://crontab.guru/ (para ajudar a programar o horário) - O escolhido foi: https://crontab.guru/#*/5_*_*_*_*

Pacote rvest - https://github.com/hadley/rvest

library(rvest)
## Loading required package: xml2
library(stringr)
library(lubridate)
## 
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
## 
##     date
Oboticario <- read_html("http://www.boticario.com.br/glamour-secrets-black-des--colonia-75ml-21318/p?idsku=2002624&utm_campaign=googleshop&gclid=EAIaIQobChMIr4XvvL_Q2gIVFA2RCh3JWgf-EAQYAiABEgJ6gfD_BwE")

Oboticario %>%
  html_nodes(css = ".skuBestPrice") %>%    
  html_text() %>%
  str_remove(pattern = "R\\$ ") %>%  
  str_remove(pattern = "\\.") %>% 
  str_replace(pattern = ",", replacement = ".") %>% 
  as.numeric() -> preço


hora <- now()
cat(hora, " ", preço )
## 1528660029   119.9
#Impressão
hora
## [1] "2018-06-10 16:47:09 -03"
preço
## [1] 119.9