updates for chapter 12

Author: spsanderson

.Rproj.user/69A1DB49/pcs/source-pane.pper

@@ -1,3 +1,3 @@
 {
-    "activeTab": 1
+    "activeTab": 2
 }

Chapter12/plumber_api.R

@@ -1,28 +1,8 @@
-# plumber and Excel
-
 #* Plot out data from a random normal distribution
-#* @param .mean The mean of the standard normal deviation
+#* @param .mean The mean of the standard normal distribution
 #* @get /plot
 #* @serializer png
 function(.mean) {
   mu <- as.numeric(.mean)
   hist(rnorm(n = 1000, mean = mu, sd = 1))
-}
-
-#* Plot out data from the iris dataset
-#* @param spec If provided, filter the data to only this species (e.g. 'setosa')
-#* @get /irisplot
-#* @serializer png
-function(spec){
-  myData <- iris
-  title <- "All Species"
-  
-  # Filter if the species was specified
-  if (!missing(spec)){
-    title <- paste0("Only the '", spec, "' Species")
-    myData <- subset(iris, Species == spec)
-  }
-  
-  plot(myData$Sepal.Length, myData$Petal.Length,
-       main=title, xlab="Sepal Length", ylab="Petal Length")
 }