#' Steam Recent Games
#'
#' gets recent steam geames needs a valid steam api key
#' @export
#' @import data.table
#' @import rjson
#' @param key Steam API key
#' @param id Steam User ID
rcntgames <- function (key,id = "76561197973625640") {
json_file1 <-
"http://api.steampowered.com/IPlayerService/GetRecentlyPlayedGames/v0001/?key="
json_file2 <- "&steamid="
json_file3 <- "&format=json"
json_file <-
paste(json_file1,key,json_file2,id,json_file3,sep = "")
list <-
suppressWarnings(fromJSON(paste(readLines(json_file), collapse = "")))
list$response$games
rbindlist(list$response$games,fill = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.