R标记-不渲染SparkTables

我正在尝试使用Rmarkdown渲染一个可火花表。但是输出总是以原始html或tex格式输出。这取决于我是呈现PDF还是HTML。不知道该怎么办

library(sparkTable)
data("AT_Soccer")
content <- list(
   function(x) {sum(x)},
   function(x) {round(sum(x),2)},
   function(x) {round(sum(x), 2)},
   newSparkLine(lineWidth = 2,pointWidth = 6),
   newSparkBar()
)
names(content) <- c("Points","ShotGoal","GetGoal","GoalDiff","winLose")
vars <- c("points","shotgoal","getgoal","goaldiff","wl")
stab <- newSparkTable(AT_Soccer,content,vars)
export(stab, outputType = "html") ### For HTML R-Markdown files
export(stab, outputType = "tex") #### For PDF R-Markdown files

但是，这将在闪亮的框架中打开spark表。我正在尝试使用spark表生成多个rmarkdown文档

我从以下内容中获取了此示例：。第29页

HTML解决方案 设置这个对我很有用。多亏了马丁。但仍然坚持使用pdf格式

   knitr::opts_chunk$set(results = 'asis')

在研究了一点文档之后，我总结了在Rmd文档中包含sparkTables的内容：

1。对于HTML文档（

outputType='HTML'

）：

正如我所说的，使用chunk选项

results='asis'

---

2。对于PDF文档（

outputType='tex'

）：

对于PDF文档，您还需要上面的选项但是如果不使用它，您将看到由

export（）

生成的纯乳胶。 在该输出的最底部，您将发现一个重要提示：

## Information: please do not forget to add the following command before \begin{document} in your tex-fi
##
## \newcommand{\graph}[3]{ \raisebox{-#1mm}{\includegraphics[height=#2em]{#3}}}

所以我们要做的是

• 在我们的序言中包括这一行乳胶
• 将

  results='asis'

  添加到代码块中
• 并将

  export（）

  的参数

  infonote

  设置为

  FALSE

最后一点防止LaTeX编译器抛出另一个错误（即我们已经定义了命令

\graph

）

以下是PDF文档的工作示例：

---
title: "Plotting Plots Under Code"
author: "Martin"
date: "February 1, 2017"
output: pdf_document
header-includes:
  - \newcommand{\graph}[3]{ \raisebox{-#1mm}{\includegraphics[height=#2em]{#3}}}
---


```{r setup, echo = F, warning = F, message = F, results = 'asis'}
library(sparkTable)
data('AT_Soccer')
content <- list(
   function(x) {sum(x)},
   function(x) {round(sum(x), 2)},
   function(x) {round(sum(x), 2)},
   newSparkLine(lineWidth = 2, pointWidth = 6),
   newSparkBar()
)
names(content) <- c('Points', 'ShotGoal', 'GetGoal', 'GoalDiff', 'winLose')
vars <- c('points', 'shotgoal', 'getgoal', 'goaldiff', 'wl')
stab <- newSparkTable(AT_Soccer, content, vars)
export(stab, outputType = 'tex', infonote = F)
```

---
标题：“根据代码绘制绘图”
作者：“马丁”
日期：“2017年2月1日”
输出：pdf\U文件
标题包括：
-\newcommand{\graph}[3]{\raisebox{-#1mm}{\includegraphics[height=#2em]{#3}}
---
```{r setup，echo=F，warning=F，message=F，results='asis'}
图书馆（可sparkTable）
数据（'AT_Soccer'）
内容使用块选项
results='asis'
这在我编写html时有效，pdf呢？谢谢如果您想要PDF文档，为什么要使用
outputType=“html”
？！怎么样
outputType='tex'
？我正在尝试以HTML和PDF格式重新创建spark表。我确实在输出PDF时更改了outputType='tex'，但sparktable没有呈现。
---
title: "Plotting Plots Under Code"
author: "Martin"
date: "February 1, 2017"
output: pdf_document
header-includes:
  - \newcommand{\graph}[3]{ \raisebox{-#1mm}{\includegraphics[height=#2em]{#3}}}
---


```{r setup, echo = F, warning = F, message = F, results = 'asis'}
library(sparkTable)
data('AT_Soccer')
content <- list(
   function(x) {sum(x)},
   function(x) {round(sum(x), 2)},
   function(x) {round(sum(x), 2)},
   newSparkLine(lineWidth = 2, pointWidth = 6),
   newSparkBar()
)
names(content) <- c('Points', 'ShotGoal', 'GetGoal', 'GoalDiff', 'winLose')
vars <- c('points', 'shotgoal', 'getgoal', 'goaldiff', 'wl')
stab <- newSparkTable(AT_Soccer, content, vars)
export(stab, outputType = 'tex', infonote = F)
```