r - 为什么这个 R 包无法安装以及如何修复它？

Question

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

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

> 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 包的一些错误。

感谢您阅读本文，并且感谢您提供的任何帮助。

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

Answer 1

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

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

总而言之，请将 install 调用替换为:

install('myPack', args=c('--no-multiarch','--no-test-load'))
library('myPack')