1library(unitizer) 2library(fansi) 3 4unitizer_sect('simple tabs', { 5 string <- '1\t12\t123\t1234\t12345678' 6 tabs_as_spaces(string) 7 tabs_as_spaces(string, c(2, 3, 4, 5, 8)) 8 tabs_as_spaces(string, c(2, 8)) 9 tabs_as_spaces(1:3) 10}) 11unitizer_sect('newlines', { 12 string.n <- paste0( 13 '1\t12\t123\t1234\t12345678\n', 14 '1\t12\t123\t1234\t12345678' 15 ) 16 tabs_as_spaces(string.n) 17 tabs_as_spaces(string.n, c(2, 3, 4, 8)) 18 tabs_as_spaces(string.n, c(2, 8)) 19}) 20unitizer_sect('corner cases', { 21 tabs_as_spaces('') 22 tabs_as_spaces('\t') 23 tabs_as_spaces('\n') 24 tabs_as_spaces(c(string, string, string)) 25}) 26unitizer_sect('bad inputs', { 27 tabs_as_spaces(string, warn=1:3) 28 tabs_as_spaces(string, tab.stops='hello') 29 tabs_as_spaces(string, ctl='hello') 30 tabs_as_spaces(string, ctl=0) 31}) 32