sos (version 2.0-0)

back2ForwardSlash: Replace backslash with forward slash in a character string

Description

scan a character string with backslash as the quote character and return it with backslashs replaced by forward slash.

NOTE: 'c:\User' cannot be assigned to a character variable, because '\U' must be followed by a hexidecimal number, and 's' is not a legal hexidecimal digit. Therefore, we read the character string of interest using scan rather than assigning it to a function argument.

Usage

back2ForwardSlash(nmax=1, what=character(), sep='\n', ...)

Arguments

nmax, what, sep, …

arguments passed to scan

Value

character vector with backslashes replaced by forward slashes.

Details

It's not easy to turn a back slash into a forward slash, because R interprets the back slash as an escape character. back2ForwardSlash tells R to read the next nmax lines, replacing '\' with '/'.

See Also

scan gsub Quotes

Examples

# NOT RUN {
(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".

# }
# NOT RUN {
all.equal(x, '#c:/users/')
# }
# NOT RUN {
(x2. <- back2ForwardSlash(2))
#c:\u\a b\n o
#d:\pqr\

# }
# NOT RUN {
all.equal(x2., c('#c:/u/a b/n o', '#d:/pqr/'))
# }
# NOT RUN {
# }
# NOT RUN {
<!-- %\dontrun{ -->
# }
# NOT RUN {
<!-- %# Same again, this time from a file -->
# }
# NOT RUN {
<!-- %fname <- system.file('tests', 'example_back2ForwardSlash.txt', package = 'sos') -->
# }
# NOT RUN {
<!-- %lines <- readLines(fname) -->
# }
# NOT RUN {
<!-- %(x3 <- back2ForwardSlash(lines)) -->
# }
# NOT RUN {
# }
# NOT RUN {
<!-- %\dontshow{stopifnot(} -->
# }
# NOT RUN {
<!-- %all.equal(x3, c('c:/Users/', 'c:/u/a b/c d')) -->
# }
# NOT RUN {
<!-- %\dontshow{)} -->
# }
# NOT RUN {
<!-- %} -->
# }