Merge pull request #14 from kbodwin/new-r-version

export knit_print method properly

NAMESPACE

@@ -6,6 +6,7 @@ S3method(flair_lines,default)
 S3method(flair_lines,with_flair)
 S3method(flair_rx,default)
 S3method(flair_rx,with_flair)
+S3method(knit_print,with_flair)
 S3method(mask_rx,default)
 S3method(mask_rx,with_flair)
 S3method(print,with_flair)
@@ -21,7 +22,7 @@ export(flair_input_vals)
 export(flair_lines)
 export(flair_quick)
 export(flair_rx)
-export(knit_print.with_flair)
+export(is.with_flair)
 export(mask)
 export(mask_quick)
 export(mask_rx)
@@ -42,6 +43,7 @@ export(with_flair)
 export(wrap_html)
 import(stringr)
 importFrom(glue,glue)
+importFrom(knitr,knit_print)
 importFrom(magrittr,"%>%")
 importFrom(purrr,map)
 importFrom(purrr,map2)

R/with_flair.R

@@ -21,7 +21,9 @@ with_flair <- function(x) {
 #' @return "as-is" html output, to be rendered when knitted
 #'
 #' @importFrom purrr map
+#' @importFrom knitr knit_print
 #'
+#' @method knit_print with_flair
 #' @export
 knit_print.with_flair <- function(x, ...) {
 
@@ -161,3 +163,12 @@ print.with_flair <- function(x, ...) {
 
 }
 
+
+#' Method check
+#'
+#' @param x An object
+#'
+#' @return Whether the object is a \code{with_flair} class object.
+#'
+#' @export
+is.with_flair <- function(x) inherits(x, "with_flair")