Query OpenDota from R

query_opendota.R

library(jsonlite)
library(dplyr)

opendota.query <- function(sqlQuery) {
  requestUrl = paste("https://api.opendota.com/api/explorer?sql=", URLencode(sqlQuery), sep="")
  result <- fromJSON(requestUrl)
  return(result$rows)
}

sampleQuery = "select * from public_matches where start_time > 1483362553 AND duration > 900 AND avg_mmr > 2500 AND num_mmr > 2 limit 10"
opendota.query(sampleQuery)

sampleQuery = "
SELECT
  match_id,
  account_id,
  player_slot,
  hero_id,
  actions.key AS action,
  actions.value AS action_cnt
FROM player_matches, 
     json_each_text(player_matches.actions) AS actions
LIMIT 50"
opendota.query(sampleQuery)