EEX crawler

library(httr)
library(pipeR)

baseUrl <- "https://www.eex.com/en/market-data/environmental-markets/spot-market/european-emission-allowances"

dataJson <- GET("https://www.eex.com/data//view/data/detail/emission-eua-spot-v2/2017/01.04.json",
                add_headers(Referer = baseUrl, Connection = "keep-alive",
                            Accept = "application/json, text/plain, */*",
                            "Accept-Encoding" = "gzip, deflate, sdch, br",
                            "Accept-Language" = "zh-TW,zh;q=0.8,en-US;q=0.6,en;q=0.4",
                            "User-Agent" = "Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; rv:11.0) like Gecko"),
                set_cookies("__unam" = "6cecd6d-15ad7dec3bf-bcd243b-6")) %>>% content

dataYouWant <- dataJson$data[[1]]$rows[[1]]$data

dataYouWant$openingPrice    # 5.53
dataYouWant$volumeTotal     # 197000
dataYouWant$settlementPrice # 5.7
dataYouWant$lastTradeTime   # 2017-01-04T17:31:29+01:00