#' @method as.data.frame term_rcrd
#' @export
as.data.frame.term_rcrd <- function(x, ..., stringsAsFactors = FALSE) {
chk_flag(stringsAsFactors)
# FIXME: Need stringsAsFactors? Use vctrs::new_data_frame()?
data.frame(par = field(x, "par"), dim = I(field(x, "dim")), stringsAsFactors = stringsAsFactors)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.