R/gamedata.R

In drewlake/steamR: Steam API for R

#' Game Data
#' 
#' Data about a specific game
#' @export
#' @import data.table
#' @import rjson
#' @param gameid Steam game id

gamedata <- function (gameid = "220") {

  url <-
    paste("http://store.steampowered.com/api/appdetails/?appids=",gameid,sep =
            "")
  
  list <-
    suppressWarnings(fromJSON(paste(readLines(url), collapse = "")))
  list <- list[[gameid]]
  list <- list$data
  list
  
}