The data is coming from an external source for the app. I get the data using an api to an internal database we have.
TOKEN="XXXXXXXXX"
basic_url = "https://app.collaborativedrug.com/api/v1/vaults/5177/"
base_url = paste0(basic_url,"protocols")
run_url_individual = paste0(basic_url,"runs/")
slurp_url = paste0(basic_url,"slurps")
response<-GET(base_url, add_headers(.headers = c("X-CDD-Token"=TOKEN)))
request <- stop_for_status(response)
print(request)
http_type(response)
get_protocols_json <- fromJSON(content(response, as = 'text'))
Snippet of how i am getting the data