6

我想在 R 包中包含一个 Fortran 子例程。我一直只使用 devtools 和 roxygen 构建软件包(所以我的知识可能非常有限)。我收到一个错误,阻止我在构建它不是 Win32 应用程序后安装该软件包...

我正在使用 Rtools 3.3。我的会话信息:

> sessionInfo()
R version 3.2.2 (2015-08-14)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] roxygen2_5.0.1 devtools_1.9.1

loaded via a namespace (and not attached):
[1] magrittr_1.5  tools_3.2.2   Rcpp_0.12.1   memoise_0.2.1 stringi_1.0-1 stringr_1.0.0 digest_0.6.8 

为了最初构建包,我运行这个:

library(devtools)
library(roxygen2)

setwd("C:/panterasBox")
create("myPack")
setwd("C:/panterasBox/myPack")
dir.create("C:/panterasBox/myPack/src")

这是 fortran 代码,在/src文件中保存为 myFunc.f:

         subroutine myFunc(x)
         implicit none
         real(8) x

         x = x + 2

         return
         end

我用来调用它的 R 包装器(保存在/R文件中):

#' @title A test
#' @description a test function.
#' @param x this is a number
#' @useDynLib myPack
#' @export
myFunc <- function(x){
  if (!is.loaded('myFunc')) {
    dyn.load("/src/myPack.dll")
  }
  myCall <- NULL
  myCall <- .Fortran("myFunc", x=as.double(x), PACKAGE="myPack")
  return(myCall$x)
}

现在,要创建文档并安装包,我运行以下命令:

> document()
Updating myPack documentation
Loading myPack
Re-compiling myPack
"C:/Users/pantera/DOCUME~1/R/R-32~1.2/bin/x64/R" --no-site-file --no-environ --no-save --no-restore CMD INSTALL  \
"C:\panterasBox\myPack" --library="C:\Users\pantera\AppData\Local\Temp\RtmpQdJJko\devtools_install_1df837dd6c29" --no-R  \
--no-data --no-help --no-demo --no-inst --no-docs --no-exec --no-multiarch --no-test-load 

* installing *source* package 'myPack' ...
** libs
gfortran -m64     -O2  -mtune=core2 -c myFunc.f -o myFunc.o
gcc -m64 -shared -s -static-libgcc -o myPack.dll tmp.def myFunc.o -Ld:/RCompile/r-compiling/local/local320/lib/x64 -Ld:/RCompile/r-compiling/local/local320/lib -lgfortran -LC:/Users/pantera/DOCUME~1/R/R-32~1.2/bin/x64 -lR
installing to C:/Users/pantera/AppData/Local/Temp/RtmpQdJJko/devtools_install_1df837dd6c29/myPack/libs/x64
* DONE (myPack)
First time using roxygen2. Upgrading automatically...
Updating roxygen version in  C:\panterasBox\myPack/DESCRIPTION 
Writing NAMESPACE
Writing myFunc.Rd
> install("myPack")
Installing myPack
"C:/Users/pantera/DOCUME~1/R/R-32~1.2/bin/x64/R" --no-site-file --no-environ --no-save --no-restore CMD INSTALL  \
"C:/panterasBox/myPack" --library="C:/Users/pantera/Documents/R/R-3.2.2/library" --install-tests 

* installing *source* package 'myPack' ...
** libs

*** arch - i386
make: Nothing to be done for `all'.
installing to C:/Users/pantera/Documents/R/R-3.2.2/library/myPack/libs/i386

*** arch - x64
make: Nothing to be done for `all'.
installing to C:/Users/pantera/Documents/R/R-3.2.2/library/myPack/libs/x64
** R
** preparing package for lazy loading
** help
*** installing help indices
** building package indices
** testing if installed package can be loaded
*** arch - i386
Error in inDL(x, as.logical(local), as.logical(now), ...) : 
  unable to load shared object 'C:/Users/pantera/Documents/R/R-3.2.2/library/myPack/libs/i386/mypack.dll':
  LoadLibrary failure:  %1 is not a valid Win32 application.

Error: loading failed
Execution halted
*** arch - x64
ERROR: loading failed for 'i386'
* removing 'C:/Users/pantera/Documents/R/R-3.2.2/library/myPack'
Error: Command failed (1)

我还尝试使用R CMD build myPack然后通过命令行构建和检查包R CMD check myPack_*tar.gz。我这样做的唯一错误是关于我的 LaTeX 包。

感谢您阅读本文,感谢您提供的任何帮助。

免责声明:我之前确实问过这个问题,但我想以“最小的方式”再次问。

4

2 回答 2

5

很明显,这是一个架构问题。看起来您的包的 x64 版本(这可能是您需要的)已成功构建,但 x86 构建以及因此整体任务失败。尝试以下操作:

  1. 添加调用--no-multiarch选项install。这将告诉RCmd您不要为 x86 构建,因为您的主要架构是 x64。
  2. (可能是可选的,但只是为了方便。)添加调用--no-test-load选项install。这将告诉RCmd不要通过加载包的成功来判断构建任务的成功。
  3. 手动加载包library('myPack'),看看它是否有效。

总而言之,将您的install电话替换为:

install('myPack', args=c('--no-multiarch','--no-test-load'))
library('myPack')
于 2016-01-15T07:03:15.390 回答
0

看起来你正在加载dyn.load("/src/myPack.dll")

但在安装过程中它正在寻找:

'C:/Users/pantera/Documents/R/R-3.2.2/library/myPack/libs/i386/mypack.dll'

(即没有大写P)

*对不起,我没有足够的代表来发表评论。

于 2016-01-12T17:14:17.133 回答