Question

我在实施（beamer）演示时遇到了一些困难。一切正常，直到我包含一个检查特定条件的函数，并相应地返回输出（图形 - 打印文本）。没有这个功能它工作正常。那么我该如何绘制或打印输出？

\documentclass[10pt]{beamer}
\usepackage[T1]{fontenc}
\begin{document}

\begin{frame}{test}

<<echo=FALSE, fig.height = 4>>=

  dates <- seq(as.Date("2015-02-13"), as.Date("2015-02-22"), by = "days")
  b <- c(1,1,1,1,2,2,3,3,3,0)
  c <- c(20,30,26,20,30,40,5,10,4,0)
  d <- c(11,2233,12,2,22,13,23,23,100,0)
  df <- data.frame(dates,b,c,d)

  plot(df)

  test <- function(df) {
    if(sum(tail(df[2:ncol(df)], 1)) > 0) { # check only last date

      return(plot(df))

    } else {

      print("Have a nice day!")

    }

  }
 test(df)

@

\end{frame}

\end{document}

Answer 1

knitr包含verbatim中的输出，从TEX可以看出问题中的Rnw产生：

\begin{frame}{test}

\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{verbatim}
## [1] "Have a nice day!"
\end{verbatim}
\end{kframe}
\includegraphics[width=10cm,height=8cm]{figure/unnamed-chunk-2-1} 

\end{knitrout}

\end{frame}

然而：

使用Sweave或knitr使用beamer是很简单的;您唯一需要注意的是您必须将fragile选项添加到包含逐字代码的框架中。 [Source]

因此，框架需要fragile option：

\begin{frame}[fragile]{test}

使用fragile确保not to indent \end{frame}。（在从问题中复制代码之后，这发生在我身上......）

有条件地在投影仪演示中打印文本或显示图形

1 个答案: