A wrapper to the new method defined in the Token class.
create_token_profile(
  token = getPass::getPass("Enter/Paste a token: "),
  auth_type = "Bearer"
)a string for token
type of HTTP authentication.
Should be Bearer or Basic. Default is Bearer
An object of class Token
if (FALSE) {
# Create a profile with "Bearer" authentication type
myProfile <- create_token_profile()
myProfile
# Create a profile with a "Basic" authentication type
myProfile2 <- create_token_profile(auth_type = "Basic")
myProfile2
}