if (FALSE) {
# set key
rs_set_key(user = "test", password = "123")
# get key
rs_get_key(user = "test")
# leave user and key empty to open a browser window to the service's website
# and type the key interactively
rs_get_key()
}
Run the code above in your browser using DataLab