vignettes/introduction.R

In renkun-ken/formattable: Create 'Formattable' Data Structures

## ---- echo=FALSE, include=FALSE------------------------------------------
set.seed(123)

## ------------------------------------------------------------------------
library(formattable)
p <- percent(c(0.1, 0.02, 0.03, 0.12))
p

## ------------------------------------------------------------------------
p + 0.05
p + percent(0.02)
p * 1.1

## ------------------------------------------------------------------------
max(p)
mean(p)

## ------------------------------------------------------------------------
p[1:3]
p[[2]]

## ------------------------------------------------------------------------
p[[3]] <- 0.05
p

## ------------------------------------------------------------------------
balance <- accounting(c(1000, 500, 200, -150, 0, 1200))
balance
balance + 1000

## ------------------------------------------------------------------------
dates <- formattable(as.Date(c("2016-05-01", "2016-05-10")), format = "%Y%m%d")
dates
dates + 30

## ------------------------------------------------------------------------
lv <- formattable(c(TRUE, FALSE, FALSE, TRUE), "yes", "no")
lv
!lv

## ------------------------------------------------------------------------
lv[[1]]
isTRUE(lv[[1]])

## ------------------------------------------------------------------------
all(lv)
any(lv)

## ------------------------------------------------------------------------
pm <- matrix(rnorm(6, 0.8, 0.1), 2, 3, 
  dimnames = list(c("a", "b"), c("X", "Y", "Z")))
pm

## ------------------------------------------------------------------------
fpm <- percent(pm)
fpm

## ------------------------------------------------------------------------
fpm["a", c("Y", "Z")]

## ------------------------------------------------------------------------
pa <- array(rnorm(12, 0.8, 0.1), c(2, 3, 2))
pa

## ------------------------------------------------------------------------
percent(pa)

## ------------------------------------------------------------------------
p <- data.frame(
  id = c(1, 2, 3, 4, 5), 
  name = c("A1", "A2", "B1", "B2", "C1"),
  balance = accounting(c(52500, 36150, 25000, 18300, 7600), format = "d"),
  growth = percent(c(0.3, 0.3, 0.1, 0.15, 0.15), format = "d"),
  ready = formattable(c(TRUE, TRUE, FALSE, FALSE, TRUE), "yes", "no"))
p

## ------------------------------------------------------------------------
p[1:3, c("name", "balance", "growth")]