with_flair to decorated

Author: kbodwin

NAMESPACE

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

R/decorated-print.R

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