carbonintensity_api.R

`%>%` <- magrittr::`%>%`

dates_seq <- seq.Date(from = as.Date("2018-11-24"), to = as.Date("2018-11-30"), by = "day")

df <- lapply(dates_seq, function(i){
  
  cmd <- paste("curl -X GET https://api.carbonintensity.org.uk/intensity/", i, 
               "T00:00Z/", i, 
               "T23:30Z | jq --raw-output '.data[] | [.from, .intensity.actual] | @tsv'", 
               sep = "")
  
  df <- data.table::fread(cmd = cmd, col.names = c("date_time_temp", "value"))
  df[, date_time := lubridate::ymd_hm(date_time_temp, tz = "UTC")]
  df <- df[, list(date_time, value)]
  return(df)
}) %>%
  data.table::rbindlist()
head(df)

df %>% TSstudio::ts_plot()

You need to install jq:
https://stedolan.github.io/jq/download/