rasmusab

<!--
  This is a fun and friendly chatbot UI that uses the ChatGPT API. 
  It features
  * A retro-styled CRT screen UI
  * A ASCII face that changes based on the bot's current emotion 
  * Some light sound effects when the bot is responding
  * Persistent chat history using localStorage
  * All in one single HTML file

  To get going you need a ChatGPT API key to assign to the `openai_api_key` variable.

rasmusab

\documentclass{article}
\begin{document}

<<echo=FALSE,results=tex>>=
cat('\\section{hi}\n')
@


<<echo=FALSE>>=
library(xtable)

rasmusab

# This script takes the scraped IBA cocktails dataset found here: 
# https://github.com/rasmusab/iba-cocktails
# And produces a four page PDF with all the IBA cocktails and animated GIFs that
# loops through these, as well.

library(tidyverse)
library(glue)
library(ggtext)
library(gridExtra)

rasmusab

# How to call the new (as of 2023-03-01) ChatGTP API from R
# Get your API key over here: https://platform.openai.com/
api_key <- "sk-5-your-actual-api-key-Fvau6" # Don't share this! 😅

library(httr)
library(stringr)

# Calls the ChatGTP API with the given promps and returns the answer
ask_chatgtp <- function(prompt) {
  response <- POST(

rasmusab

bowling_animation_urls <- c(
  "0.01" = "https://i.imgur.com/Kn8CQbj.gif",
  "0.05" = "https://i.imgur.com/HFTKdDL.gif",
  "0.1" = "https://i.imgur.com/8Sw54Mz.gif",
  "1" = "https://i.imgur.com/kjROdhj.gif"
)

# We need to download the animations to the session temp dirercorty to display 
# them in the Rstudio Viever pane
bowling_animation_html <- sapply(bowling_animation_urls, function(url) {

rasmusab

rasmusab

year,category,prize,motivation,prize_share,laureate_id,laureate_type,full_name,birth_date,birth_city,birth_country,gender,organization_name,organization_city,organization_country,death_date,death_city,death_country
1901,Chemistry,The Nobel Prize in Chemistry 1901,in recognition of the extraordinary services he has rendered by the discovery of the laws of chemical dynamics and osmotic pressure in solutions,1/1,160,Individual,Jacobus H. van 't Hoff,1852-08-30,Rotterdam,the Netherlands,male,Berlin University,Berlin,Germany,1911-03-01,Berlin,Germany
1901,Literature,The Nobel Prize in  Literature 1901,"in special recognition of his poetic composition, which gives evidence of lofty idealism, artistic perfection and a rare combination of the qualities of both heart and intellect",1/1,569,Individual,Sully Prudhomme,1839-03-16,Paris,France,male,NA,NA,NA,1907-09-07,Châtenay,France
1901,Medicin,The Nobel Prize in Physiology or Medicine 1901,"for his work on serum therapy, especially its application against diphtheria, b

rasmusab

# This R script pulls down information on all Nobel prize winners
# from the official Nobel Prize API and selects a subset of this 
# information that is then saves to a CSV-file.
# By Rasmus Bååth, 2020, in the public domain.

library(tidyverse)
library(httr)

nobel_response <- GET("http://api.nobelprize.org/2.0/laureates?limit=100000&format=json")
nobel_raw <- as_tibble(content(nobel_response, simplifyVector = TRUE, flatten = TRUE)$laureates)

rasmusab

library(DT)
library(glue)
library(tidyverse)

package_names <- tidyverse:::core

tidyverse_functions <- map_dfr(package_names, function(package_name) {
  tibble(
    Package = package_name,
    Function = as.character(lsf.str(glue("package:{Package}"))),

rasmusab

# Prior to the tutorial make sure that the script below runs without error on your R installation.
# You first need to install the following packages:
# install.packages(c("rstanarm", "prophet", "CausalImpact", "rstan"))

library(rstanarm)
library(prophet)
library(CausalImpact)
library(rstan)
library(ggridges)