Nothing
#' @title
#' View observations
#'
#' @description
#' Invoke data viewer on \code{observations(x)}.
#'
#' @param x
#' A data frame, possibly with an \code{observations} attribute.
#'
#' @param title
#' Title for viewer window.
#'
#' @seealso
#' \code{\link[utils]{View}} from package \pkg{utils}.
#'
#' @importFrom utils View
#' @export
#'
View_obs <-
function(x,
title)
{
if (missing(title))
title <- paste0("obs(", deparse(substitute(x))[1L], ")")
if (is.RStudio()) {
View(observations(x, compressed = FALSE), title)
} else {
utils::View(observations(x, compressed = FALSE), title)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.