auth_check()
au <- auth_check()
if (isTRUE(au["research"])) {
message("Ready to use the research API!")
}
if (isTRUE(au["hidden"])) {
message("Ready to use all function of unofficial the API!")
}
Run the code above in your browser using DataLab