parse_events.R

parse_streamer <- function(url, cb = print){
  con <- curl::curl(url = url)
  open(con)
  on.exit(close(con))
  repeat{
    txt <- readLines(con, 1)
    if(!length(txt)){
      print("All done!")
      cb(NULL)
      break;
    }
    if(grepl("^data:", txt)){
      json <- sub("^data:", "", txt)
      data <- jsonlite::fromJSON(json)
      cb(data)
    }
  }
}

parse_streamer('https://mybinder.org/build/gh/karthik/binder-test-fastest/master')

Worked perfectly, thanks!