Hi, Garrett:

On 6/9/2012 7:54 PM, G See wrote:
One work around is to comment out the lines that `scan` reads.

     (x<- back2ForwardSlash())
     #c:\Users\
     all.equal(x, '#c:/Users/')

      Thanks.  This works well enough to be useful.

Or, you could pass a text arg through the dots

     (x<- back2ForwardSlash(text="c:\\\users"))
     all.equal(x, 'c:/users')


This is not acceptable, because "sos-manual.pdf" displays ... 'text="c:\\users"', which would likely confuse readers.


      Thanks again.
      Spencer

HTH,
Garrett

On Sat, Jun 9, 2012 at 8:40 PM, Spencer Graves
<spencer.gra...@prodsyse.com>  wrote:
Hello, All:


          I have for years copied an address like "C:\Program
Files\R\R-2.15.0\library\MASS\scripts" from Windows Explorer into R, then
manually replaced "\" with "/".  I have a function to automate this added to
the development version of "sos".  However, it generates a warning in "R CMD
check" ("parse error:  unexpected input").  I have so far not found a way to
eliminate the warning without wrapping examples in "\dontrun" or making the
examples hard to understand;  neither of these alternatives are acceptable.


          The following is my current solution:


back2ForwardSlash<- function(nmax=1, what=character(), sep='\n', ...){
  x2<- scan(what=what, nmax=nmax, sep=sep, ...)
  x.<- gsub('\\', '/', x2, fixed = TRUE)
}
(x<- back2ForwardSlash())
c:\Users\
all.equal(x, 'c:/Users/')
# TRUE
x2.<- back2ForwardSlash(2)
c:\u\a b\n o
d:/pqr/
all.equal(x2., c('c:/u/a b/n o', 'd:/pqr/'))
# TRUE


QUESTION:  Might anyone have a better solution and / or simple, clear
examples that do not generate a warning in "R CMD check"?


NOTE:  In case you want to try this development version of "sos" including
this function, it is available via "svn checkout
svn://svn.r-forge.r-project.org/svnroot/rsitesearch/" or
install.packages('sos', repos = "http://R-Forge.R-project.org";).


          Thanks,
          Spencer


p.s.  Prof. Ripley provided a way to do this on R-help several years ago.
  Unfortunately, I've been unable to find his solution.

______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel


______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

Reply via email to