added testing for issue #1066

115-tikzDevice-measuring.Rnw

@@ -0,0 +1,13 @@
+\documentclass{article}
+
+\begin{document}
+
+<<volcano,dev='tikz'>>=
+plot(volcano)
+
+legend('topleft',
+c('\\newcommand{\\qqqqqqqq}{1 $\\times \\Sigma \\vartheta$ 2}\\qqqqqqqq'),
+pch=c(1) )
+@
+
+\end{document}

115-tikzDevice-measuring.tex

@@ -0,0 +1,81 @@
+\documentclass{article}\usepackage[]{graphicx}\usepackage[]{color}
+%% maxwidth is the original width if it is less than linewidth
+%% otherwise use linewidth (to make sure the graphics do not exceed the margin)
+\makeatletter
+\def\maxwidth{ %
+  \ifdim\Gin@nat@width>\linewidth
+    \linewidth
+  \else
+    \Gin@nat@width
+  \fi
+}
+\makeatother
+
+\definecolor{fgcolor}{rgb}{0.345, 0.345, 0.345}
+\newcommand{\hlnum}[1]{\textcolor[rgb]{0.686,0.059,0.569}{#1}}%
+\newcommand{\hlstr}[1]{\textcolor[rgb]{0.192,0.494,0.8}{#1}}%
+\newcommand{\hlcom}[1]{\textcolor[rgb]{0.678,0.584,0.686}{\textit{#1}}}%
+\newcommand{\hlopt}[1]{\textcolor[rgb]{0,0,0}{#1}}%
+\newcommand{\hlstd}[1]{\textcolor[rgb]{0.345,0.345,0.345}{#1}}%
+\newcommand{\hlkwa}[1]{\textcolor[rgb]{0.161,0.373,0.58}{\textbf{#1}}}%
+\newcommand{\hlkwb}[1]{\textcolor[rgb]{0.69,0.353,0.396}{#1}}%
+\newcommand{\hlkwc}[1]{\textcolor[rgb]{0.333,0.667,0.333}{#1}}%
+\newcommand{\hlkwd}[1]{\textcolor[rgb]{0.737,0.353,0.396}{\textbf{#1}}}%
+
+\usepackage{framed}
+\makeatletter
+\newenvironment{kframe}{%
+ \def\at@end@of@kframe{}%
+ \ifinner\ifhmode%
+  \def\at@end@of@kframe{\end{minipage}}%
+  \begin{minipage}{\columnwidth}%
+ \fi\fi%
+ \def\FrameCommand##1{\hskip\@totalleftmargin \hskip-\fboxsep
+ \colorbox{shadecolor}{##1}\hskip-\fboxsep
+     % There is no \\@totalrightmargin, so:
+     \hskip-\linewidth \hskip-\@totalleftmargin \hskip\columnwidth}%
+ \MakeFramed {\advance\hsize-\width
+   \@totalleftmargin\z@ \linewidth\hsize
+   \@setminipage}}%
+ {\par\unskip\endMakeFramed%
+ \at@end@of@kframe}
+\makeatother
+
+\definecolor{shadecolor}{rgb}{.97, .97, .97}
+\definecolor{messagecolor}{rgb}{0, 0, 0}
+\definecolor{warningcolor}{rgb}{1, 0, 1}
+\definecolor{errorcolor}{rgb}{1, 0, 0}
+\newenvironment{knitrout}{}{} % an empty environment to be redefined in TeX
+
+\usepackage{alltt}
+% this checks if the width of latex macros is measured correctly by the
+% tikzDevice. This is in response to https://github.com/yihui/knitr/issues/1066
+\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
+\begin{document}
+
+\begin{knitrout}
+\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
+\begin{alltt}
+\hlkwd{options}\hlstd{(}\hlkwc{device} \hlstd{=} \hlkwa{function}\hlstd{(}\hlkwc{...}\hlstd{) tikzDevice}\hlopt{::}\hlkwd{tikz}\hlstd{(}\hlkwd{paste0}\hlstd{(}\hlkwd{tempfile}\hlstd{(),} \hlstr{".tex"}\hlstd{),}
+    \hlstd{...))}
+\end{alltt}
+\end{kframe}
+\end{knitrout}
+
+\begin{knitrout}
+\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
+\begin{alltt}
+\hlkwd{plot}\hlstd{(volcano)}
+\end{alltt}
+
+
+{\ttfamily\noindent\itshape\color{messagecolor}{\#\# Creating new TikZ metrics dictionary at:\\\#\# 	115-tikzDevice-measuring-tikzDictionary\\\#\# Using TikZ metrics dictionary at:\\\#\# 	115-tikzDevice-measuring-tikzDictionary}}\begin{alltt}
+\hlkwd{legend}\hlstd{(}\hlstr{"topleft"}\hlstd{,} \hlkwd{c}\hlstd{(}\hlstr{"\textbackslash{}\textbackslash{}newcommand\{\textbackslash{}\textbackslash{}qqqqqqqq\}\{1 $\textbackslash{}\textbackslash{}times \textbackslash{}\textbackslash{}Sigma \textbackslash{}\textbackslash{}vartheta$ 2\}\textbackslash{}\textbackslash{}qqqqqqqq"}\hlstd{),}
+    \hlkwc{pch} \hlstd{=} \hlkwd{c}\hlstd{(}\hlnum{1}\hlstd{))}
+\end{alltt}
+\end{kframe}
+\includegraphics[width=\maxwidth]{figure/115-tikzDevice-measuring-volcano-1} 
+
+\end{knitrout}
+
+\end{document}