ryanscharf

library(httr)

# Get the JWT
get_jwt <- POST("https://example.com/throwaway/wp-json/jwt-auth/v1/token", 
                query = list(username = "your_username", password = "your_password"))
token <- content(get_jwt)$token

# Confirm auth is working 
test <- POST("https://example.com/throwaway/wp-json/jwt-auth/v1/token/validate", 
             add_headers('Authorization' = paste("Bearer", token, sep = " ")), encode = "json")