xml example
library(httr)  # Define the URL of the API endpoint url <- "https://your.api.endpoint"  # Define the data to be sent in the POST request (replace with your actual data) data <- list(   key1 = "value1",   key2 = "value2" )  # Define the token (replace with your actual token) token <- "your_access_token"  # Create the POST request with headers response <- POST(   url,   body = data,   add_headers("Authorization" = paste("Bearer", token)),   encode = "json"  # Specify the encoding, e.g., "json" )  # Check the response status_code <- status_code(response) content <- content(response)  cat("Status Code:", status_code, "\n") cat("Response Content:", content, "\n")