# NOT RUN {
library(beakr)
# Create an new Beakr instance
beakr <- newBeakr()
# Create a simple beakr pipeline
beakr %>%
httpGET("/", function(req, res, err) {
return("Successful GET request!\n")
}) %>%
listen(host = '127.0.0.1', port = 25118, daemon = TRUE)
# ------------------------------------------------------------
# IN A TERMINAL:
# curl -X GET http://127.0.0.1:25118/
# > Successful GET request!
# ------------------------------------------------------------
# Stop the beakr instance server
stopServer(beakr)
# }
Run the code above in your browser using DataLab