Make it easier to use tinyplot with pipes

DESCRIPTION

@@ -42,6 +42,7 @@ Depends:
 Imports: 
   graphics,
   grDevices,
+  methods,
   stats,
   tools,
   utils

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(tinyplot,data.frame)
 S3method(tinyplot,default)
 S3method(tinyplot,density)
 S3method(tinyplot,formula)
@@ -91,6 +92,7 @@ importFrom(graphics,segments)
 importFrom(graphics,strwidth)
 importFrom(graphics,text)
 importFrom(graphics,title)
+importFrom(methods,is)
 importFrom(stats,aggregate)
 importFrom(stats,approx)
 importFrom(stats,as.formula)

R/tinyplot.R

@@ -522,7 +522,16 @@
 #' )
 #' # reset the theme
 #' tinytheme()
-#'
+#' 
+#' # tinyplot can be used with pipes without specifying the data argument,
+#' # as long as a formula is provided:
+#' 
+#' \dontrun{
+#' aq |> 
+#'   subset(Month == "May") |> 
+#'   tinyplot(Temp ~ Wind)
+#' }
+#' 
 #' # For more examples and a detailed walkthrough, please see the introductory
 #' # tinyplot tutorial available online:
 #' # https://grantmcdermott.com/tinyplot/vignettes/introduction.html
@@ -1489,6 +1498,15 @@ tinyplot.density = function(
 
 }
 
+#' @rdname tinyplot
+#' @importFrom methods is
+#' @export
+tinyplot.data.frame <- function(x = NULL, formula = NULL, ...) {
+    pars <- as.list(match.call()[-1])
+    if(!is(pars$formula, "call")) {  stop("If the first argument to tinyplot is a data frame, then the second must be a formula.") }
+    tinyplot(formula, x, ...)
+}
+
 
 #' @export
 #' @name plt