R标记- SparkTables不呈现

Question

我试着用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

我的输出(用于html文件)如下所示：

​

​

pdf输出如下：

​

​

我在试着得到真正的火花。我已经能够把实际的桌子渲染成这样：

 showSparkTable(stab)

然而，这打开了闪亮的框架内的火花表。我正在尝试用星火表生成多个重标记文档。

我从：https://journal.r-project.org/archive/2015-1/templ-kowarik-meindl.pdf中拿出了这个例子。第29页。

HTML的解决方案

设置这个对我有用。多亏了马丁。但是仍然停留在pdf上。

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

​

​

Answer 1

在研究了文档之后，我总结了在Rmd文档中包含sparkTables的经验：

1.对于HTML (outputType = 'html')：

正如我所说的，使用块选项results = 'asis'。

2. PDF文档 (outputType = 'tex')：

在PDF文档的情况下，您还需要上面的选项。但是，如果您不使用它，您将看到由export()生成的普通LaTeX。在输出的最底层，您会发现一个重要的提示：

## 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}}}

所以我们现在要做的就是

• 在我们的序言中包括LateX这一行，
• 将results = 'asis'添加到代码块，
• 并将参数infonote of export()设置为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'}

图书馆(SparkTable)

数据(“AT_Soccer”)

内容<-列表(

函数(X) {sum(x)}，

函数(X){圆形(和(X)，2)}，

函数(X){圆形(和(X)，2)}，

newSparkLine(lineWidth = 2，pointWidth = 6)，

newSparkBar()

)

名称(内容) <- c(“点”、“ShotGoal”、“GetGoal”、“GoalDiff”、“winLose”)

vars <- c(“得分”、“散球”、“getgoal”、“目标”、“wl”)

stab <- newSparkTable(AT_Soccer，content，vars)

出口(stab，outputType = 'tex'，infonote = F)

​

​