token error checking

[MatthewJWhittle]

Need to add error checking for the my_token argument. Currently, it returns an uninformative error message

`> query_layer(endpoint = ep_survey_areas(),

• my_token = TRUE) Error: $ operator is invalid for atomic vectors`

[MatthewJWhittle]

This is now resolved