R/as_tibble.R

In parsermd: Formal Parser and Related Tools for R Markdown Documents

#' @importFrom tibble as_tibble
#' @export
tibble::as_tibble

#' @exportS3Method
as_tibble.rmd_ast = function(x, ...) {

  df = tibble::as_tibble( list(
    sections = rmd_node_sections(x, drop_na = FALSE),
    type = rmd_node_type(x),
    label = rmd_node_label(x),
    ast = x@nodes
  ) )

  df = tidyr::unnest_wider(df, tidyselect::all_of("sections"))
  class(df) = c("rmd_tibble", class(df))

  df
}


#' @importFrom pillar type_sum
pillar::type_sum

#' @exportS3Method
type_sum.rmd_chunk = function(x) {
  paste(
    cli::style_bold("chunk"),
    #cli::style_italic('"', x@name, '"')
    paste0("[", x@engine, "]")
  )
}

#' @exportS3Method
type_sum.rmd_raw_chunk = function(x) {
  paste(
    cli::style_bold("raw attr chunk"),
    paste0("[", x@format, "]")
  )
}

#' @exportS3Method
type_sum.rmd_yaml = function(x) {
  cli::style_bold("yaml")
}

#' @exportS3Method
type_sum.rmd_heading = function(x) {
  paste(
    cli::style_bold("heading"),
    paste0("[h", x@level, "]")
  )
}

#' @exportS3Method
type_sum.rmd_markdown = function(x) {
  cli::style_bold("markdown")
}

#' @exportS3Method
type_sum.rmd_code_block = function(x) {
  cli::style_bold("code block")
}

#' @exportS3Method
type_sum.rmd_fenced_div_open = function(x) {
  cli::style_bold("fdiv [open]")
}

#' @exportS3Method
type_sum.rmd_fenced_div_close = function(x) {
  cli::style_bold("fdiv [close]")
}