neat-data.R
In neatR: Neat Data for Presentation

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
require(neatR)

## ----echo = TRUE--------------------------------------------------------------
ndate(Sys.Date() - 3)
ndate(Sys.Date() - 1)
ndate(Sys.Date())
ndate(Sys.Date() + 1)
ndate(Sys.Date() + 4)

## ----echo = TRUE--------------------------------------------------------------
ndate(Sys.Date(), display.weekday = FALSE)

## ----echo = TRUE--------------------------------------------------------------
ndate(Sys.Date(), display.weekday = FALSE, is.month = TRUE)

## ----echo = TRUE--------------------------------------------------------------
nday(Sys.Date(), reference.alias = FALSE)
nday(Sys.Date(), reference.alias = TRUE)
nday(Sys.time(), reference.alias = TRUE)

## ----echo = TRUE--------------------------------------------------------------
x <- seq(Sys.Date() - 10, Sys.Date() + 10, by = '1 day')
nday(x, reference.alias = TRUE)

## ----echo = TRUE--------------------------------------------------------------
ntimestamp(Sys.time())

## ----echo = TRUE--------------------------------------------------------------
ndate(Sys.time())

## ----echo = TRUE--------------------------------------------------------------
ntimestamp(Sys.time(), display.weekday = FALSE,
  include.date = FALSE, include.timezone = FALSE)

## ----echo = TRUE--------------------------------------------------------------
ntimestamp(Sys.time(), include.date = FALSE, display.weekday = FALSE,
           include.hours = TRUE,  include.minutes = TRUE,
           include.seconds = FALSE, include.timezone = FALSE)

## ----echo = TRUE--------------------------------------------------------------
ntimestamp(Sys.time(), include.timezone = FALSE)

## ----echo = TRUE--------------------------------------------------------------
x <- c(10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000)
nnumber(x)
nnumber(x, digits = 0)

## ----echo = TRUE--------------------------------------------------------------
x <- c(1e6, 99e3, 76e3, 42e3, 12e3, 789, 53)
nnumber(x, unit = 'auto')

## ----echo = TRUE--------------------------------------------------------------
nnumber(123456789.123456, unit = 'Mn')

## ----echo = TRUE--------------------------------------------------------------
nnumber(123456789.123456, unit = 'M', unit.labels = list(million = 'M'))

## ----echo = TRUE--------------------------------------------------------------
x <- c(10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000)
nnumber(x, unit.labels = 
          list(thousand = 'K', million = 'M', billion= 'B', trillion = T))

## ----echo = TRUE--------------------------------------------------------------
nnumber(123456789.123456, unit = 'M', unit.labels = list(million = 'M'),
        prefix = '$ ')

nnumber(123456789.123456, unit = 'M', unit.labels = list(million = 'M'),
        suffix = ' CAD')

nnumber(123456789.123456, unit = 'M', unit.labels = list(million = 'M'),
        prefix = '$ ', suffix = ' CAD')


## ----echo = TRUE--------------------------------------------------------------
nnumber(123456789.123456, digits = 2, unit = '',
        thousand.separator = ',')

## ----echo = TRUE--------------------------------------------------------------
npercent(22.8, is.decimal = FALSE)
npercent(0.228, is.decimal = TRUE)

## ----echo = TRUE--------------------------------------------------------------
npercent(0.228, plus.sign = TRUE)
npercent(0.228, plus.sign = FALSE)

## ----echo = TRUE--------------------------------------------------------------
tesla_2017 <- 20
tesla_2023 <- 200
g <- (tesla_2023 - tesla_2017)/tesla_2017
npercent(g, plus.sign = TRUE)
npercent(g, plus.sign = TRUE, factor.out = TRUE)

## ----echo = TRUE--------------------------------------------------------------
nstring('   All MOdels are wrong.   some ARE useful!!!  â', 
        case = 'title', remove.specials = TRUE)

## ----echo = TRUE--------------------------------------------------------------
nstring('   All MOdels are wrong.   some ARE useful!!!  â  ', 
        case = 'title', remove.specials = TRUE, en.only = TRUE)