4 lines
170 B
R
4 lines
170 B
R
top_and_tail <- function(s, top=TRUE, tail=TRUE) substr(s, 1+top, nchar(s)-tail)
|
|
top_and_tail("xyzzy")
|
|
top_and_tail("xyzzy", top=FALSE)
|
|
top_and_tail("xyzzy", tail=FALSE)
|