(x <- back2ForwardSlash())
#c:\users\
#NOTE: The "#" in this example is not needed.
# It is included here to suppress a spurious warning
# in the automated testing of the package via "R CMD check".
stopifnot(
all.equal(x, '#c:/users/')
)
(x2. <- back2ForwardSlash(2))
#c:\u\a b\n o
#d:\pqr\
stopifnot(
all.equal(x2., c('#c:/u/a b/n o', '#d:/pqr/'))
)
Run the code above in your browser using DataLab