Nothing
## ---- 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.