# NOT RUN {
## Example
app_name = ""
if(app_name != "") {
my_oauth <- jamendoOAuth(app_name=app_name)
filedir <- tempdir()
save(my_oauth, file=file.path(filedir, "my_oauth"))
my_oauth <- resfreshToken(my_oauth)
filedir <- tempdir()
save(my_oauth, file=file.path(filedir, "my_oauth"))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab