037-graphics-hyperlink.tex

%% courtesy of Jonathan Kennel
%% library(knitr); knit('links.Rnw')
\documentclass{report}\usepackage[]{graphicx}\usepackage[]{xcolor}
% 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{\hlsng}[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{\hldef}[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}}}%
\let\hlipl\hlkwb

\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}
\usepackage{tikz,hyperref}
\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
\begin{document}


Create link texts in the data:

\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{library}\hldef{(lattice)}
\hlkwd{data}\hldef{(iris)}
\hldef{iris}\hlopt{$}\hldef{hyperlink} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"\textbackslash{}\textbackslash{}hyperlink\{"}\hldef{, iris}\hlopt{$}\hldef{Species,}
    \hlsng{"\}\{"}\hldef{, iris}\hlopt{$}\hldef{Species,} \hlsng{"\}"}\hldef{,} \hlkwc{sep} \hldef{=} \hlsng{""}\hldef{)}
\hldef{iris}\hlopt{$}\hldef{hypertarget} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"\textbackslash{}\textbackslash{}hypertarget\{"}\hldef{, iris}\hlopt{$}\hldef{Species,}
    \hlsng{"\}\{"}\hldef{, iris}\hlopt{$}\hldef{Species,} \hlsng{"\}"}\hldef{,} \hlkwc{sep} \hldef{=} \hlsng{""}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}

Draw these texts in plots (you can click on the labels):

\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\begin{kframe}
\begin{alltt}
\hlkwd{xyplot}\hldef{(Sepal.Length} \hlopt{~} \hldef{Sepal.Width} \hlopt{|} \hldef{hyperlink,} \hlkwc{data} \hldef{= iris)}
\end{alltt}
\end{kframe}
\input{figure/037-graphics-hyperlink-pltFacet-1.tex}
\end{knitrout}

\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\begin{kframe}
\begin{alltt}
\hlkwd{xyplot}\hldef{(Sepal.Length} \hlopt{~} \hldef{Sepal.Width} \hlopt{|} \hldef{hypertarget,} \hlkwc{data} \hldef{= iris,} \hlkwc{layout} \hldef{=} \hlkwd{c}\hldef{(}\hlnum{1}\hldef{,}
    \hlnum{1}\hldef{))}
\end{alltt}
\end{kframe}
\input{figure/037-graphics-hyperlink-pltInd-1.tex}

\input{figure/037-graphics-hyperlink-pltInd-2.tex}

\input{figure/037-graphics-hyperlink-pltInd-3.tex}
\end{knitrout}

Note the option external has to be FALSE here, otherwise LaTeX will not be able
to find the link target in the document.

\end{document}