[Rcpp-devel] qtdensity example build problem

Jarny Choi jarny.choi at gmail.com
Tue May 8 04:47:45 CEST 2012


I've managed to fix the problem by re-installing RInside from CRAN (sources), rather than from CRAN (binaries) (using the package installer in R Gui). So perhaps there is a problem with the binary version? At any rate, now I've got RInside/lib/x86_64/ directory with libRInside.a and libRInside.dylib files in it, and the example builds and runs!

Cheers,
Jarny

On 08/05/2012, at 11:09 AM, Dirk Eddelbuettel wrote:

> 
> On 8 May 2012 at 10:36, Jarny Choi wrote:
> | Thanks, Dirk. Looks like that R function RInsideLdPath is returning null for RInside which propagates the issue downstream. Here's what I've found out:
> | 
> | > .Platform$r_arch
> | [1] "x86_64"
> | > system.file("lib",.Platform$r_arch,package="RInside")
> | [1] ""
> | 
> | This happens because /Library/Frameworks/R.framework/Versions/2.15/Resources/library/RInside/lib/x86_64 does not exist, and system.file checks for the existence of that path before returning null if it doesn't exist. Should that directory exist after RInside installation?
> 
> I am never quite sure with OS X as I don't have a box.  Did you build RInside
> from source yourself, or did you install from CRAN?  Could you try 'the other
> way' just in case?
> 
> | Thanks again for your help,
> 
> It would help me tremendously if you could debug a little at your, especially
> as you should be able to compare everything with the corresponding files /
> functions for Rcpp -- we really just carried the working scheme over to RInside.
> 
> | Jarny
> | (I accidentally subscribed to the list using my other email so just used the reply-to field to tell mailman not to reject my message in the previous post. I've changed the email now.)
> 
> Oh, got it -- no problem.  Sorry for the bother but easier for all of us to
> make initial posting that bit harder to keep spam down...
> 
> Dirk
> 
> | 
> | On 08/05/2012, at 12:15 AM, Dirk Eddelbuettel wrote:
> | > That could very well be a bug on OS X.  As I do not have an OS X box, I can't
> | > test this.  So could you poke around locally?  
> | > 
> | > The code looks pretty innocent:
> | > 
> | > ## Use R's internal knowledge of path settings to find the lib/ directory
> | > ## plus optinally an arch-specific directory on system building multi-arch
> | > RInsideLdPath <- function() {
> | >   if (nzchar(.Platform$r_arch)) {     ## eg amd64, ia64, mips
> | >       system.file("lib",.Platform$r_arch,package="RInside")
> | >   } else {
> | >       system.file("lib",package="RInside")
> | >   }
> | > }
> | > 
> | > What does that function return for you?  And what does .Platform$r_arch say?
> | > Are we by chance in the 'true' branch of that if statement?   And on the
> | > other hand, very similar code is used for Rcpp.
> | > 
> | > And that 'RInsideLdPath' function is used here to initialize rinsidedir:
> | > 
> | > ## Provide linker flags -- i.e. -L/path/to/libRInside -- as well as an
> | > ## optional rpath call needed to tell the Linux dynamic linker about the
> | > ## location.  This is not needed on OS X where we encode this as library
> | > ## built time (see src/Makevars) or Windows where we use a static library
> | > ## Updated Jan 2010:  We now default to static linking but allow the use
> | > ##                    of rpath on Linux if static==FALSE has been chosen
> | > ##                    Note that this is probably being called from LdFlags()
> | > RInsideLdFlags <- function(static=TRUE) {
> | >   rinsidedir <- RInsideLdPath()
> | >   if (static) {                               # static is default on Windows and OS X
> | >       flags <- paste(rinsidedir, "/libRInside.a", sep="")
> | >       if (.Platform$OS.type=="windows") {
> | >           flags <- shQuote(flags)
> | >       }
> | >   } else {					# else for dynamic linking
> | >       flags <- paste("-L", rinsidedir, " -lRInside", sep="") # baseline setting
> | >       if ((.Platform$OS.type == "unix") &&    # on Linux, we can use rpath to encode path
> | >           (length(grep("^linux",R.version$os)))) {
> | >           flags <- paste(flags, " -Wl,-rpath,", rinsidedir, sep="")
> | >       }
> | >   }
> | >   invisible(flags)
> | > }
> | > 
> | > 
> | > And that function is used by the one you called:
> | > 
> | > 
> | > ## LdFlags defaults to static linking on the non-Linux platforms Windows and OS X
> | > LdFlags <- function(static=ifelse(length(grep("^linux",R.version$os))==0, TRUE, FALSE)) {
> | >   cat(RInsideLdFlags(static=static))
> | > }
> | > 
> | > 
> | > Your help is appreciated.
> | > 
> | > Cheers, Dirk
> | > 
> | 
> | _______________________________________________
> | Rcpp-devel mailing list
> | Rcpp-devel at lists.r-forge.r-project.org
> | https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
> 
> -- 
> R/Finance 2012 Conference on May 11 and 12, 2012 at UIC in Chicago, IL
> See agenda, registration details and more at http://www.RinFinance.com



More information about the Rcpp-devel mailing list