#' @export
print.instrumentr_undefined <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_context <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_application <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_package <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_function <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_call <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_parameter <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_argument <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_call_stack <- function(x, ...) {
cat(to_string(x), "\n")
}
#' @export
print.instrumentr_result <- function(x, ...) {
cat(to_string(x), "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.