1

R -> Docx ワークフローを取得しようとしています。hereのチュートリアルを使用しました。R システムをセットアップするためのコマンド (チュートリアルで使用したもの) は次のとおりです。

install.packages('pander')
library(knitr)
knit2html("example.rmd")
# installing/loading the package:
if(!require(installr)) { install.packages("installr"); require(installr)} #load / install+load installr 
# Installing pandoc
install.pandoc()
FILE <- "example"
system(paste0("pandoc -o ", FILE, ".docx ", FILE, ".md"))

サイトのサンプル ファイル (example.rmd) は次のとおりです。

Doc header 1
============
```{r set_knitr_chunk_options}
opts_chunk$set(echo=FALSE,message=FALSE,results = "asis") # important for making sure the output will be well formatted.
```

```{r load_pander_methods}
require(pander)
replace.print.methods <- function(PKG_name = "pander") {
   PKG_methods <- as.character(methods(PKG_name))
   print_methods <- gsub(PKG_name, "print", PKG_methods)
   for(i in seq_along(PKG_methods)) {
      f <- eval(parse(text=paste(PKG_name,":::", PKG_methods[i], sep = ""))) # the new function to use for print
      assign(print_methods[i], f, ".GlobalEnv")
   }   
}
replace.print.methods()
## The following might work with some tweaks:
## print <- function (x, ...) UseMethod("pander")
```
Some text explaining the analysis we are doing
```{r}
summary(cars)# a summary table
fit <- lm(dist~speed, data = cars)
fit
plot(cars) # a plot
```

これにより、以下に示すような doc ファイルが作成されます (最後にもグラフがあります)。

Doc header 1
opts_chunk$set(echo = FALSE, message = FALSE, results = "asis")  # important for making sure the output will be well formatted.
## Warning: there is no package called 'pander'
## Error: no function 'pander' is visible
Some text explaining the analysis we are doing speed dist
 Min. : 4.0 Min. : 2
 1st Qu.:12.0 1st Qu.: 26
 Median :15.0 Median : 36
 Mean :15.4 Mean : 43
 3rd Qu.:19.0 3rd Qu.: 56
 Max. :25.0 Max. :120
Call: lm(formula = dist ~ speed, data = cars)
Coefficients: (Intercept) speed
 -17.58 3.93

![generated graph image][1]

生成された doc ファイルのエラーを削除するにはどうすればよいですか? 可能であれば、エラーを解決したいと思います。

4

1 に答える 1