From tom@@@k@liber@ @ending from gm@il@com  Wed Jan  2 11:13:23 2019
From: tom@@@k@liber@ @ending from gm@il@com (Tomas Kalibera)
Date: Wed, 2 Jan 2019 11:13:23 +0100
Subject: [Rd] Bug report: R.home() cause package Rcpp failed executing
 sourceCpp,
 similar bug are labeled "BUG 16660" since 2016 and here I could provide a
 solution that tested in my laptop.
In-Reply-To: <aeff153.d5285.167d20c814b.Coremail.qweytr1@mail.ustc.edu.cn>
References: <aeff153.d5285.167d20c814b.Coremail.qweytr1@mail.ustc.edu.cn>
Message-ID: <a2497bab-306b-aea1-ca01-58bd59e6162d@gmail.com>


To resolve this issue quickly on your side, I would recommend installing 
R on the C: drive which should have the short file names enabled by 
default. Then, R.home() will return a path name without a space (short 
file names do not include a space).

If you for some reason need to install R on the D: drive, then it might 
be easiest to choose installation directory without the space, such as 
"D:/R". Alternatively, you can enable short file names on your D: drive.

---

Re what could/should be fixed. I think code in R and packages should be 
robust against space in file names, it should properly quote the file 
names before passing to the OS. If you can debug this issue down to the 
place where quoting (e.g. via shQuote) is missing, I'd be happy to fix 
if it is in R code, please submit a bug report/patch. If it is in Rcpp 
or other package you may contribute a patch/ask the package maintainer 
to fix.

Best
Tomas


On 12/21/18 7:34 PM, qweytr1 at mail.ustc.edu.cn wrote:
> https://bugs.r-project.org/bugzilla3/show_bug.cgi?id=16660
> Here is the bug, which R.home may generate a path contains a whitespace.
>
>
> this will cause Rcpp failed executing sourceCpp
>
>
>> sourceCpp("b:/2018-12-14/src/18020/MCMC.cpp")
> Error in system(cmd, intern = !showOutput) : 'D:/Program' not found
> Error in system(cmd, ignore.stderr = TRUE, intern = TRUE) :
>    'D:/Program' not found
>
>
>
> Code is tested in both R 3.5.1 and Microsoft R Open 3.5.1.
>
>
> I find a temp solution, is to copy such words into Rprofile:
>
>
> unlockBinding("R.home", baseenv())
> utils::assignInNamespace("R.home",function (component = "home")
> {
>      rh <- .Internal(R.home())
>      paste0('"',switch(component, home = rh, bin = if (.Platform$OS.type ==
>          "windows" && nzchar(p <- .Platform$r_arch)) file.path(rh,
>          component, p) else file.path(rh, component), share = if (nzchar(p <- Sys.getenv("R_SHARE_DIR"))) p else file.path(rh,
>          component), doc = if (nzchar(p <- Sys.getenv("R_DOC_DIR"))) p else file.path(rh,
>          component), include = if (nzchar(p <- Sys.getenv("R_INCLUDE_DIR"))) p else file.path(rh,
>          component), modules = if (nzchar(p <- .Platform$r_arch)) file.path(rh,
>          component, p) else file.path(rh, component), file.path(rh,
>          component)),'"')
> }, ns="base", envir=baseenv())
> lockBinding("R.home", baseenv())
>
>
> Actually, calling "D:/Program Files/R/R Open/bin/x64"/R is same to calling "D:/Program Files/R/R Open/bin/x64/R"
>
>
> it shows that we could use quote to quote the whitespaces.
>
>
> (although the code seems a little bit ugly)
>
>
>
>                 _
> platform       x86_64-w64-mingw32
> arch           x86_64
> os             mingw32
> system         x86_64, mingw32
> status
> major          3
> minor          5.1
> year           2018
> month          07
> day            02
> svn rev        74947
> language       R
> version.string R version 3.5.1 (2018-07-02)
> nickname       Feather Spray
>
>
>
>
>
>
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel



[Rd] Bug report: R.home() cause package Rcpp failed executing sourceCpp, similar bug are labeled "BUG 16660" since 2016 and here I could provide a solution that tested in my laptop.
Tomas Kalibera