Simple amazon scraper with slack notification because @danjel

amzn_scrp.R

library(rvest) # Parse HTML
library(httr)  # Send POST request, I think rvest depends on that anyway

url       <- "https://www.amazon.de/dp/B01M0LHEZI"
slack_url <- "somewebhookurlimtoolazytoget"

avail <- read_html(url) %>% 
  html_node("#availability :first-child") %>% 
  html_text(trim = T)

if (grepl(avail, pattern = "Lager")) {
  POST(url    = slack_url, 
       body   = list(text = "Kopfhörer sind verfügbar!"), 
       encode = "json")
}