我为optiRum包编写了一个名为generatePDF的函数，该函数包装了knitr:::knit2pdf以允许添加日期成分和其他一些零碎的内容。
通常这可以正常工作，但是我发现data.table功能错误的奇怪情况。
示例文件:
\documentclass{article}
\begin{document}
\tableofcontents
<<>>=
library("data.table")
df<-data.table(expand.grid(seq(10000,200000,1000),seq(10000,200000,2000),seq(100000,400000,5000)))
setnames(df,c("Var1","Var2","Var3"),c("ad","fm","value"))
df<-df[ad+fm<value*.9&ad+fm>=value*.6]
df<-df[,`P Value`:=paste0(round(value/1000,2),"k")]
df<-df[,`ad Amount`:=paste0(round(ad/1000,2),"k")]
df<-df[,ratio:=(ad+fm)/value]
@
<<>>=
ggplot(df[value %in% seq(100000,400000,50000)&fm==50000],aes(x=ratio,y=ad,group=value,colour=`P Value`))+
geom_line()
@
\end{document}
当我使用
optiRum:::generatePDF时install.packages("optiRum")
library("optiRum")
generatePDF( srcname="sample" ,destname="sample")
我遇到以下几种错误:
# Error: object 'ad' not found
knit2pdf本身可以正常工作。如果我将generatePDF代码设为全局函数并重新执行，那么它也可以正常工作。就我所知，就范围而言，我没有做任何奇怪的事情。有人对解决方法有任何提示吗？
generatePDF <- function (srcpath = getwd(), srcname, destpath = getwd(), destname,
DATED = FALSE, CLEANUP = TRUE, ...)
{
require("knitr")
stopifnot(is.character(srcpath), is.character(srcname), is.character(destpath),
is.character(destname), is.logical(DATED), is.logical(CLEANUP),
file.exists(file.path(srcpath, paste0(srcname, ".Rnw"))))
knit2pdf(input = file.path(srcpath, paste0(srcname, ".Rnw")),
output = file.path(destpath, paste0(destname, ifelse(DATED,
format(Sys.Date(), "%Y%m%d"), ""), ".tex")), compiler = "pdflatex")
if (CLEANUP)
file.remove(dir(path = destpath, pattern = "*aux|*out|*toc",
full.names = TRUE))
}
更新
在上面的示例代码中更改分配方法会产生不同的错误:
## Error: := and `:=`(...) are defined for use in j, once only and
in particular ways. See help(":="). Check is.data.table(DT) is TRUE.
如果相关-在linux和Windows上测试
> sessionInfo()
R version 3.0.2 (2013-09-25)
Platform: x86_64-pc-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C LC_TIME=C LC_COLLATE=C LC_MONETARY=C
[6] LC_MESSAGES=C LC_PAPER=C LC_NAME=C LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=C LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] optiRum_0.30 scales_0.2.3 ggthemes_1.6.0 AUC_0.3.0 ggplot2_0.9.3.1 data.table_1.8.10
[7] knitr_1.5 testthat_0.8.1 devtools_1.4.1
loaded via a namespace (and not attached):
[1] MASS_7.3-29 RColorBrewer_1.0-5 RCurl_1.95-4.1 colorspace_1.2-4 dichromat_2.0-0 digest_0.6.4
[7] evaluate_0.5.1 formatR_0.10 grid_3.0.2 gtable_0.1.2 highr_0.3 httr_0.2
[13] labeling_0.2 memoise_0.1 munsell_0.4.2 parallel_3.0.2 plyr_1.8 proto_0.3-10
[19] reshape2_1.2.2 stringr_0.6.2 tools_3.0.2 whisker_0.3-2
> sessionInfo()
R version 3.0.2 (2013-09-25)
Platform: x86_64-w64-mingw32/x64 (64-bit)
locale:
[1] LC_COLLATE=English_United Kingdom.1252 LC_CTYPE=English_United Kingdom.1252 LC_MONETARY=English_United Kingdom.1252
[4] LC_NUMERIC=C LC_TIME=English_United Kingdom.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] data.table_1.8.10 knitr_1.5 optiRum_0.21
loaded via a namespace (and not attached):
[1] evaluate_0.5.1 formatR_0.10 highr_0.3 stringr_0.6.2 tools_3.0.2
最佳答案
在envir中设置knit2pdf似乎可行。我下载了package:optiRum的源代码，并更改了generatePDF以将...传递给knit2pdf。文档说那是应该去的地方，但是原始功能实际上没有对...做任何事情。因此generatePDF变为:
generatePDF<-function(srcpath = getwd() , srcname ,
destpath = getwd() , destname ,
DATED = FALSE , CLEANUP = TRUE ,
...){
require("knitr")
stopifnot(
is.character(srcpath),
is.character(srcname),
is.character(destpath),
is.character(destname),
is.logical(DATED),
is.logical(CLEANUP),
file.exists(file.path(srcpath , paste0(srcname ,
".Rnw")))
)
knit2pdf( input = file.path(srcpath , paste0(srcname ,
".Rnw")),
output = file.path(destpath , paste0(destname ,
ifelse(DATED, format(Sys.Date(),"%Y%m%d"),"") ,
".tex") ) ,
compiler='pdflatex',
...
)
if (CLEANUP) file.remove(dir( path=destpath,pattern="*aux|*out|*toc",full.names=TRUE))
}
然后，从源安装并在OP中使用已编辑的
.Rnw后，运行:library(optiRum)
optiRum::generatePDF(srcname = "sample", destname = "sample", envir=new.env(parent = .GlobalEnv))
对我来说很好。现在也在Mac上..但我认为这只是环境。
## R version 3.0.2 (2013-09-25)
## Platform: x86_64-apple-darwin10.8.0 (64-bit)
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
## other attached packages:
## [1] data.table_1.8.11 ggplot2_0.9.3.1 knitr_1.4.1 optiRum_0.21
## loaded via a namespace (and not attached):
## [1] colorspace_1.2-2 compiler_3.0.2 dichromat_2.0-0 digest_0.6.3
## [5] evaluate_0.4.7 formatR_0.9 grid_3.0.2 gtable_0.1.2
## [9] highr_0.2.1 labeling_0.2 MASS_7.3-29 munsell_0.4.2
## [13] plyr_1.8 proto_0.3-10 RColorBrewer_1.0-5 reshape2_1.2.2
## [17] scales_0.2.3 stringr_0.6.2 tools_3.0.2
关于r - 函数开发中knitr/data.table组合的R怪异作用域问题，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/22039649/