Notice, you must register for an API Key to use as a password. https://midt.meddra.org/account/register
library(jsonlite)
library(dmtools)
# read MedDRA id and API key from a CSV file
auth <- read.csv("api_auth.csv", sep = ";")
url_auth <- "https://midt.meddra.org/connect/token"
# get token
token <- meddra_auth(url_auth, auth$id, auth$api_key)
url_search <- "https://mapit.meddra.org/api/search"
# read a file with a json
json_search <- read_json("search.txt") %>% toJSON(auto_unbox = T)
# get a response
list_search <- meddra_post(url_search, json_search, token)
# response to a tibble
tibble_search <- list_parse(list_search)
url_hier <- "https://mapit.meddra.org/api/hier"
# read a file with a json
json_hier <- read_json("hier.txt") %>% toJSON(auto_unbox = T)
# get a response
list_hier <- meddra_post(url_hier, json_hier, token)
# response to a tibble
tibble_hier <- list_parse(list_hier$rows)
url_type <- "https://mapit.meddra.org/api/type"
# read a file with a json
json_type <- read_json("type.txt") %>% toJSON(auto_unbox = T)
# get a response
list_type <- meddra_post(url_type, json_type, token)
# response to a tibble
tibble_type <- list_parse(list_type)