R/wpd_get_exact.R

In petermeissner/wikipediatrend: Public Subject Attention via Wikipedia Page View Statistics

#' wpd_get_exact
#'
#' @inheritParams wp_get_data
#' @export
#'
wpd_get_exact <- 
  function(page, lang, from, to, warn = TRUE){
    url <- 
      glue::glue("http://petermeissner.de:8880/article/exact/{lang}/{page}")
    
    http_request <- httr::GET(url)
    cont         <- httr::content(http_request, type = "application/json")
    
    res <- do.call(rbind, lapply(cont$data, wpd_decompress, lang = lang))
    
    # handle missing data    
    if ( is.null(res) ){
      res <- 
        data.frame(
          lang       = character(0), 
          page_name  = character(0), 
          date       = structure(numeric(0), class = "Date"), 
          page_views = integer(0)
        )
      
      if ( warn == TRUE ){
        warning(
          glue::glue("Unable to retrieve data for url: {url}."), 
          glue::glue(" Status: {cont$status}."), 
          glue::glue(" Info: {cont$info}."),
          immediate. = TRUE
        )
      }
    } 
    
    res        <- res[order(res$date), c("lang", "page_name", "date", "page_views")]
    names(res) <- c("language", "article", "date", "views")
    res        <- res[res$date >= from & res$date <= to, ]
    res$views  <- as.integer(res$views)
    
    
    # return
    res
  }