# plumber.R
#* @param n Seconds to sleep
#* @get /sleep
{
}
#* Echo the parameter that was sent in
#* @param msg The message to echo back.
#* @get /echo
{
}
#* Plot out data from the iris dataset
#* @param spec If provided, filter the data to only this species (e.g. 'setosa')
#* @get /plot
#* @serializer png
{
myData <- iris
title <- "All Species"
# Filter if the species was specified
if (!) {
title <-
myData <-
}
}