# Create a guard of dubious quality
bearer <- guard_bearer(
validate = function(token) {
token == "abcd1234"
},
user_info = function(user) {
new_user_info(
name_given = "Thomas",
name_middle = "Lin",
name_family = "Pedersen"
)
},
allow_body_token = FALSE
)
# Add it to a fireproof plugin
fp <- Fireproof$new()
fp$add_guard(bearer, "bearer_auth")
# Use it in an endpoint
fp$add_auth("get", "/*", bearer_auth)
Run the code above in your browser using DataLab