HorizonGo channels mapping

This is using the publicly available API of HorizonGo to produce a list of UPC-NL channels:

library("RCurl")

Loading required package: bitops

library("RJSONIO")
library("xtable")
jsondata=fromJSON(getURL("https://www.horizon.tv/oesp/api/NL/nld/web/channels"), nullValue=NA)

get_redirect<-function(url){
        h = basicTextGatherer()
        txt=getURL(url,header=TRUE,headerfunction = h[[1]])
        read.dcf(textConnection(paste(h$value(NULL)[-1], collapse="")))
}

channels<-list()

for (channel in jsondata$channels){
        for (stream in channel$stationSchedules[[1]]$station$videoStreams){
                if(stream$protectionScheme=='playReady')
                {
                        # Get the redirection from thePlatform to Velocix CDN
                        value<-(channel$stationSchedules[[1]]$station$title)
                        key<-(gsub("/.*","",gsub("http://","",get_redirect(stream$url)[4])))
                        channels[[key]]<-value
                }
                else if (stream$protectionScheme=='widevine')
                {
                        # In the case of Widevine, get the double redirection from thePlatform through Varnish to Velocix CDN
                        value<-(channel$stationSchedules[[1]]$station$title)
                        key<-(gsub("/.*","",gsub("http://","",get_redirect(gsub("prog_index.m3u8","01-00001.ts",get_redirect(stream$url)))[2])))
                        channels[[key]]<-value
                }
        }
}

#save(channels,file="NLchannels.RData")
print(xtable(t(as.data.frame(channels))),type='html',html.table.attributes='border="1" bgcolor="#999999"')