forked from yihui/knitr-examples
-
Notifications
You must be signed in to change notification settings - Fork 0
/
030-landscape.tex
117 lines (104 loc) · 3.42 KB
/
030-landscape.tex
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
\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}}}%
\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{lscape}
\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
\begin{document}
See if the landscape environment works.
hello world
\newpage
\begin{landscape}
\begin{table}\centering
\begin{kframe}
\begin{alltt}
\hlkwd{library}\hlstd{(knitr)}
\hlkwd{kable}\hlstd{(}\hlkwd{head}\hlstd{(iris))}
\end{alltt}
\end{kframe}
\begin{tabular}{r|r|r|r|l}
\hline
Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species\\
\hline
5.1 & 3.5 & 1.4 & 0.2 & setosa\\
\hline
4.9 & 3.0 & 1.4 & 0.2 & setosa\\
\hline
4.7 & 3.2 & 1.3 & 0.2 & setosa\\
\hline
4.6 & 3.1 & 1.5 & 0.2 & setosa\\
\hline
5.0 & 3.6 & 1.4 & 0.2 & setosa\\
\hline
5.4 & 3.9 & 1.7 & 0.4 & setosa\\
\hline
\end{tabular}
\end{table}
\end{landscape}
\newpage
hello again
\begin{kframe}
\begin{alltt}
\hlkwd{library}\hlstd{(Hmisc)}
\hlkwd{latex}\hlstd{(}\hlkwd{head}\hlstd{(iris),} \hlkwc{file} \hlstd{=} \hlstr{""}\hlstd{,} \hlkwc{landscape} \hlstd{=} \hlnum{TRUE}\hlstd{)}
\end{alltt}
\end{kframe}%latex.default(head(iris), file = "", landscape = TRUE)%
\begin{landscape}\begin{table}[!tbp]
\begin{center}
\begin{tabular}{lrrrrl}
\hline\hline
\multicolumn{1}{l}{head}&\multicolumn{1}{c}{Sepal.Length}&\multicolumn{1}{c}{Sepal.Width}&\multicolumn{1}{c}{Petal.Length}&\multicolumn{1}{c}{Petal.Width}&\multicolumn{1}{c}{Species}\tabularnewline
\hline
1&$5.1$&$3.5$&$1.4$&$0.2$&setosa\tabularnewline
2&$4.9$&$3.0$&$1.4$&$0.2$&setosa\tabularnewline
3&$4.7$&$3.2$&$1.3$&$0.2$&setosa\tabularnewline
4&$4.6$&$3.1$&$1.5$&$0.2$&setosa\tabularnewline
5&$5.0$&$3.6$&$1.4$&$0.2$&setosa\tabularnewline
6&$5.4$&$3.9$&$1.7$&$0.4$&setosa\tabularnewline
\hline
\end{tabular}\end{center}
\end{table}\end{landscape}
\end{document}