How to work with APIs using R (httr2 package tutorial)

[@ggnot2]

Hi everyone! Hadley Wickham suggested some awesome improvements to the code featured in this video. Please use the code on GitHub rather than what's in the video :) Link to the code that should be used: github.com/melissavanbussel/CZcams-Tutorials/blob/main/httr2/httr2_examples.R
The changes are:
- Using the req_url_path_append() function rather than pasting things together with the paste0() function
- Define the access tokens as system environment variables and access them using Sys.getenv() rather than including the tokens directly in the script (for instructions on how to set your Open AI API key as a system environment variable, check this video here at timestamp 30:34 - czcams.com/video/tqfOgWr0PAY/video.htmlsi=GEERk28_m4tyDXab&t=1835)
- Using the req_auth_bearer_token() function to greatly simplify working with access tokens

[@transportation-talk]

Thanks a lot for taking the time to create this tutorial. I wish I had this tutorial before digging into the Firebase API and using it in R.

[@home1250]

Great work, thank you for sharing this tutorial! I've been wanting to learn more about working with APIs using R. Your explanations and instructions made it easy to follow along. Looking forward to trying it out myself. Keep up the great work!

[@ggnot2]

Thanks for the support and kind words!

[@rappa753]

Great job, Melissa! Calling APIs is hard at the beginning and I feel like there are not many R resources about that.

[@grzegorzklaczak3365]

Thank you! Great work, helped a lot

[@AngelFelizF]

This is great tutorial, thanks for sharing

[@meme31382]

beautiful

[@DaarShnik]

You could use a method called request append to append url path... You don't get paste function to do it.

[@ggnot2]

Thanks! Code has been updated to avoid paste0 :)

[@apshinyn]

Very nice intro - any plans to cover more complex auth interactions such as PKCE?

[@apshinyn]

For future reference, here is the way I figured out how to make code challenges for PKCE!
make_challenge %
charToRaw() %>%
openssl::sha256() %>%
openssl::base64_encode() %>%
str_replace_all("=", "") %>%
str_replace_all("\\+", "-") %>%
str_replace_all("/", "_")
}