R/util.R

Defines functions format_row_equal format_row

# A non-exported function used to format text in `print` methods.
format_row <- function(content, justify, width, ...) {
  # content must be a list, justify and width must be vectors
  res <- character(0L)
  for (i in seq_along(content)) {
    res <- c(res,
      format(
        format(content[[i]], ...),
        justify = justify[i],
        width = width[i],
        ...)
    )
  }
  res <- c(res, "\n")
  return(res)
}

# A non-exported function used to format text in `print` methods.
format_row_equal <- function(content, justify, column_width, ...) {
  # content must be a list with the content:
  # (var_name1, var1, var_name2, var2, etc)
  # the length of content will be twice the length of the other vectors
  res <- character(0L)
  for (i in seq_along(justify)) {
    res <- c(res,
      format(
        paste0(content[[2 * i - 1]],
               " = ",
               format(content[[2 * i]], ...)
               ),
        justify = justify[i],
        width = column_width[i],
        ...)
    )
  }
  res <- c(res, "\n")
  return(res)
}

Try the cmstatr package in your browser

Any scripts or data that you put into this service are public.

cmstatr documentation built on Sept. 30, 2021, 5:08 p.m.