fortify.function passes function along

Author: thomasp85

R/fortify.r

@@ -16,6 +16,8 @@ fortify.data.frame <- function(model, data, ...) model
 #' @export
 fortify.NULL <- function(model, data, ...) waiver()
 #' @export
+fortify.function <- function(model, data, ...) model
+#' @export
 fortify.default <- function(model, data, ...) {
   stop(
     "ggplot2 doesn't know how to deal with data of class ",