# identical(strwrap(hello.5, width=10), strwrap_ctl(hello.5, width=10))

# identical(strwrap(hello.5a, width=10), strwrap_ctl(hello.5a, width=10))

# identical(strwrap(hello.6a, width=40), strwrap_ctl(hello.6a, width=40))

# identical(strwrap(hello.6b, width=40), strwrap_ctl(hello.6b, width=40))

# identical(strwrap(hello.6c, width=40), strwrap_ctl(hello.6c, width=40))

hello2.0 <- paste0("hello ", red, "world ", grn.bg, " this is a  lovely", 
    end, "day.")

hello [31mworld [42m this is a  lovely[0mday.

[1] "hello"      "world"      "this is a"  "lovelyday."

hello2.1 <- paste0("hello \033[41mworld\033[m how are you today")

hello2.2 <- paste0("hello \033[41mworld\033[0m how are you today")

[1] "hello \033[41mworld\033[0m" "how are you"               
[3] "today"

hello.bold.faint <- paste0("hello \033[1mbolded once upon a time\033[22m ", 
    "normal \033[2mfainting in faintness oh no\033[22m normal")

hello [1mbolded once upon a time[22m normal [2mfainting in faintness oh no[22m normal

# Specific turn off tags - turn off bold and faint

hello.blinky <- paste0("hello \033[5mbliking slowly oh my\033[25m ", 
    "normal \033[6mblinking quickly oh my\033[25m normal")

hello [5mbliking slowly oh my[25m normal [6mblinking quickly oh my[25m normal

strwrap_ctl(hello.blinky, 10, terminate = FALSE)

[1] "hello"             "\033[5mbliking"    "slowly oh"        
[4] "my\033[25m normal" "\033[6mblinking"   "quickly"          
[7] "oh my"             "\033[0mnormal"

strwrap_ctl(hello2.3, 10, simplify = FALSE)

strwrap2_ctl(hello2.3, 10, simplify = FALSE)

strwrap_ctl("aliquip \033[31mex ea commodo consequat\033[0m\n", 
    25)

[31mMany[39m more, too numerous to mention
[7;31mSimon[39m [31mDavies[39m whilst at the [31mUniversity[0m
[7mof [31mAuckland[39m wrote the original version[0m
[31mJulian[39m [31mHarris[39m and [31mWing[39m [31mKwong[39m ([31mTiki[39m) [31mWan[0m
whilst at the [31mUniversity[39m of [31mAuckland[0m
assisted [31mRoss[39m [31mIhaka[39m with the original
[7;31mR[39m was inspired by the [31mS[39m environment[0m
[7mwhich has been principally developed by[0m
[7;31mJohn[39m [31mChambers[39m, with substantial input[0m
[7mfrom [31mDouglas[39m [31mBates[39m, [31mRick[39m [31mBecker[39m, [31mBill[0m
[31mA[39m special debt is owed to [31mJohn[39m [31mChambers[0m
[31mR[39m and later became a member of the core
[7;31mThe[39m [31mR[39m [31mFoundation[39m may decide to give out[0m
[7maddresses to contributors to the [31mR[0m
[7;31mProject[39m (even without making them[0m
[7mmembers of the [31mR[39m [31mFoundation[39m) when in[0m
[7mthe view of the [31mR[39m [31mFoundation[39m this would[0m
[7mhelp advance the [31mR[39m project.[0m
[31mJennifer[39m [31mBryan[39m, [31mDi[39m [31mCook[39m, [31mDirk[0m
[31mEddelbuettel[39m, [31mJohn[39m [31mFox[39m, [31mBettina[39m [31mGrün[39m,
[31mFrank[39m [31mHarrell[39m, [31mTorsten[39m [31mHothorn[39m, [31mStefano[0m
[31mTurner[39m, [31mBill[39m [31mVenables[39m, [31mHadley[39m [31mWickham[0m
and [31mAchim[39m [31mZeileis[39m are the ordinary
members of the [31mR[39m [31mFoundation[39m. [31mIn[0m
addition, [31mDavid[39m [31mMeyer[39m and [31mSimon[39m [31mWood[0m