inst/examples/02-color/plumber.R

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

library(alexar)

#* @post /
#* @serializer unboxedJSON
function(req){
  dispatchAlexaRequest(req, intent=function(name, slots, attributes, ...){
    print(slots)
    print(attributes)
    if (name=="getcolor"){
      if (is.null(attributes$favoriteColor)){
        return(alexaResponse(output="I don't know! You need to tell me your favorite color first."))
      }
      # Return the response AND persist the attributes for future requests
      alexaResponse(output=paste0("Your favorite color is ", attributes$favoriteColor), attributes=attributes)
    } else if (name == "setcolor"){
      alexaResponse(output="Great! I'll remember your favorite color next time you ask.",
                                  attributes=list(favoriteColor=slots$color$value))
    }
  }, launch=function(...){
    alexaResponse("Tell this application what your favorite color is, then later you can ask it what your favorite color is.")
  })
}