Pepsi challenge: eps() vs tikz()

eps_vs_tikz.Rnw

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{lipsum}

\usepackage[nogin]{Sweave}
\usepackage{tikz}

\begin{document}

\section{Lorem ipsum}

\lipsum[1]

\begin{figure}[!hb]
  \centering
<<eps-examp,fig=TRUE,eps=TRUE,pdf=FALSE,width=4.5,height=4.5,echo=FALSE>>=
  plot(1,1)
@

  \label{fig:eps-ex}
  \caption{Vivamus viverra fermentum felis.}
\end{figure}

\newpage

\section{Lorem ipsum}

\lipsum[1]

\begin{figure}[!hb]
  \centering
<<tikz-examp,echo=FALSE,results=hide>>=
  require(tikzDevice)
  tikz('tikz-examp.tex', width = 4.5, height = 4.5)
  plot(1,1)
  dev.off()
@
  \input{tikz-examp}
  \label{fig:eps-ex}
  \caption{Vivamus viverra fermentum felis.}
\end{figure}

\end{document}