R/changes_movie.R

In TMDb: Access to TMDb API

changes_movie <-
function(api_key, page=1, start_date=NA, end_date=NA){
    
    if(page<1 || page>1000){
        stop("page must be a number between 1 and 1000")
    }
    
    if(!is.na(start_date) && !is.character(start_date)){
        stop("start_date must be a date string like YYYY-MM-DD")
    }
    
    if(!is.na(end_date) && !is.character(end_date)){
        stop("end_date must be a date string like YYYY-MM-DD")
    }
    
    l <- list(page=page, start_date=start_date, end_date=end_date)
    l <- l[!is.na(l)]
    
    if(length(l)>0){
        params <- paste("&", names(l), "=", stri_join_list(l, sep = ","), sep = "", collapse = "")
        url <- fromJSON(GET(url=paste("http://api.themoviedb.org/3/movie/changes?api_key=", 
                                      api_key, params, sep=""))$url) 
    } else{
        url <- fromJSON(GET(url=paste("http://api.themoviedb.org/3/movie/changes?api_key=", 
                                      api_key, sep=""))$url)        
    }
    
    return(url)
    
}