Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.