R/utils.R

In MichaelChirico/texr: Send R objects to TeX

"%+%" <- function(s1, s2) paste0(s1, s2)

#for eval(parse())-ing a list as text
object_to_text <- function(x) {
  #thanks for improvement: http://stackoverflow.com/questions/38998935
  out <- paste(deparse(x), collapse = "")
  invisible(out)
}

#Internal globals
.global <- new.env()
setPackageName("texr", .global)
.global$default_params <-
  list(use.dims = TRUE, align = NULL, label = NULL,
       digits = NULL, caption = NULL, hline.after = NULL,
       vline.after = NULL, na.char = "", file = "", 
       placement = "ht", caption.placement = "above",
       floating.environment = "table", only.body = FALSE,
       line.ends = TRUE, line.split = "\n")
.global$param_names <- names(.global$default_params)

#Label Counter & Reset Function
#increments by 1 each `tex()` call
reset_label_count <- function(...) .global$label_count <- 0L

get_label_count <- function(...) .global$label_count

#Warning users about the need for rotating package
#  by default, ping the user with a message only the first
#  time tex() is called in a given session;
#  also allow this message to be issued each tex call.
.warn_rotate <- function(...) {
  if (getOption("texr.warn.rotating")) {
    message("\nRemember to include \\usepackage{rotating} ",
            "in your LaTeX preamble when using sidewaystable.")
    if (getOption("texr.warn.rotating.toggle"))
      options("texr.warn.rotating" = FALSE)
  }
}