R/is_output_type.R

In tidytlg: Create TLGs using the 'tidyverse'

Defines functions is_format_html is_format_rtf is_graph is_table is_listing

is_listing <- function(type) {
  substr(tolower(type), 1, 1) == "l"
}

is_table <- function(type) {
  substr(tolower(type), 1, 1) == "t"
}

is_graph <- function(type) {
  substr(tolower(type), 1, 1) %in% c("g", "f")
}

is_format_rtf <- function(format) {
  tolower(format) == "rtf"
}

is_format_html <- function(format) {
  tolower(format) == "html"
}

Try the tidytlg package in your browser