In bbTomas/tbTools: Tomas' personal mix of utilities

tbTools

Tomas' personal mix of utilities

Mix of things that I missed in R. Matlab-like colon operator, stem plot (base plotting system), round2 with order, ifft etc.

seqM Matlab-like behaviour of colon operator or linspace for creating sequences, for-loop friendly.

round2 Rounds a number to the specified order. Round half away from zero (this is the difference from built-in \code{round} function.)

ifft Inverse Fast Fourier Transform (discrete FT), Matlab-like behavior.

Stem Matlab-like stem plotting function for discrete series.

isInt Returns TRUE / FALSE whether it is exactly 1 integer number (in fact, the class can be numeric but the number must be integer), non-missing

isNum Returns TRUE / FALSE whether it is exactly 1 number (numeric or integer vector of length 1, non-missing)

isString Returns TRUE / FALSE whether it is exactly 1 character string (character vector of length 1, non-missing)

isLogical Returns TRUE / FALSE whether it is exactly 1 logical value (logical vector of length 1, non-missing)

strTrim Trim leading and trailing whitespace in character string. Way faster than str_trim() or trimws().

str_contains Find string in another string (without regular expressions), returns TRUE / FALSE.

str_find Find string in another string (without regular expressions), returns indices of all occurences.

str_find1 Find string in another string (without regular expressions), returns indices of the first occurence only.

Installation

install.packages("devtools")
devtools::install_github("bbTomas/tbTools")

Documentation

Reference manual: tbTools.pdf.

Examples

Finally Matlab-like sequences in R (colon operator with by or linspace with length.out). For-loop safe. Default step is always by=+1 (no guessing) and if you do seqM(3, 1, by=+1) it produces an empty vector (so in for-loop, the statements are not proceeded) instead of error (result of classic seq in R).

library(tbTools)

seqM

seqM(1, 3)
seqM(1, 3, by=.8)
seqM(1, 3, by=5)
seqM(3, 1)
seqM(3, 1, by=+1)
seqM(3, 1, by=-1)
seqM(3, 1, by=-3)
seqM(1, 3, len=5)
seqM(1, 3, len=3)
seqM(1, 3, len=2)
seqM(1, 3, len=1)
seqM(1, 3, len=0)
seqM(3, 1, len=3)
seqM(from=2, by=1, len=3)
seqM(from=2, by=-1, len=3)
seqM(to=2, by=1, len=3)
seqM(to=2, by=-1, len=3)
seqM(from=2, by=0, len=3)

ifft

ifft(fft(1:5))

isSomething

isInt(2)
isInt(2L)
isInt(2.1)
isInt(1:5)

isNum(2L)
isNum(-2.1)
isNum("-2.1")

isString("hello")
isString(5)

isLogical(FALSE)
isLogical(0)

round2

round2(23.5)
round2(23.4)
round2(24.5)
round2(-23.5)
round2(-23.4)
round2(-24.5)
round2(123.456, -1) 
round2(123.456, -2) 
round2(123.456, 1)
round2(123.456, 2)
round2(123.456, 3)

Stem: Matlab-like stem plot for discrete series in R

t <- seqM(from = 0, to = 2*pi, length.out = 20)
Stem(t, sin(t))
Stem(t, sin(t), pch=21, linecol = "blue")

Character string operations

strTrim(" Hello World! ")   # much faster than str_trim() in stringr package or trimws() in R3.2.0

# easy and comfortable string operations without regular expressions
str_contains("Hello world", "wor")
str_contains("Hello world", "WOR")
str_contains(tolower("Hello world"), tolower("wor"))

str_find("Hello, hello, hello world", "ell")
str_find("Hello, hello, hello world", "q")

str_find1("Hello, hello, hello world", "ell")
str_find1("Hello, hello, hello world", "q")