#' Test if the object is a tdf object
#'
#' This function returns `TRUE` for the object returned from the
#' \code{generate.placebos} function.
#' and `FALSE` for all other objects, including regular data frames.
#'
#' @param x An object
#' @return `TRUE` if the object inherits from the `tdf` class.
#' @export
is_tdf <- function(x) {
inherits(x, "tdf")
}
#' Test if the object is a tdf_multi object
#'
#' This function returns `TRUE` for the object returned from the
#' \code{multiple.synth} function.
#' and `FALSE` for all other objects, including regular data frames.
#'
#' @param x An object
#' @return `TRUE` if the object inherits from the `tdf_multi` class.
#' @export
is_tdf_multi <- function(x) {
inherits(x, "tdf_multi")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.