R/my_format.R

In moodleR: Helper Functions to Work with 'Moodle' Data

#' Formatting function
#'
#' Internal use. Attempts a package wide standard way of formatting different kind of data.
#' @param x What needs to be formatted
#' @keywords internal
#' @return formatted character string
#' @keywords internal
#' @noRd
my_format <- function(x) {
  # Dates
  if ("POSIXct" %in% class(x)){
    return(as.character(x))
  }



  # Small integer
  if (is.integer(x)) {
    if (x < 1000)
      return(x)
  }

  # Numeric
  if (is.numeric(x)) {
    x <- scales::label_number_si(accuracy = ifelse(x <= 1, .001, .1))(x)
  }

  x
}