inst/examples/01-jeffleek/plumber.R

In jhudsl/alexar: A plumber extension to support Amazon Alexa custom skills

# devtools::install_github("wlandau/JeffLeekMeme")
library(alexar)

facts <- JeffLeekMeme::allJeffLeek()

#* @post /
#* @serializer unboxedJSON
function(req){
  dispatchAlexaRequest(req, intent=function(name, slots, ...){
    if (name=="tellfact"){
      fact <- facts[sample(1:nrow(facts), 1),]
      alexaResponse(output=fact$fact, card=
                      list(type="Simple", title="Jeff Leek Fact",
                           content=paste(fact$fact, fact$author, sep="\r\n -")))
    } else {
      alexaResponse(output="I don't know how to process this request...")
    }
  }, launch=function(...){
    alexaResponse("Jeff Leek is always prepared.")
  })
}