R/main.R

In thozh912/Lab5: Web API Package for SR Radio Open API

#' The initializer function for the data
#' 
#' This function initializes channels and program .csv files for use in Shinyapp
#' project by executing SR Open API requests.
#' 
#' 


main <- function(){
  channels <- get_channels()
  programs <- get_programs(channels)
  
  
  setwd("../Shinyapp/data")
  write.csv(channels,"channels.csv",row.names=FALSE,fileEncoding = "UTF-8")
  write.csv(programs,"programs.csv",row.names=FALSE,fileEncoding = "UTF-8")
  
  setwd("../../Lab5")
}