-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathusing-r-main.R
82 lines (45 loc) · 2.63 KB
/
using-r-main.R
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
## ----setup-1, include=FALSE, cache=FALSE----------------------------------------------------------------------------
library(knitr)
library(svglite)
## ----setup-2, include=FALSE, cache=FALSE----------------------------------------------------------------------------
opts_knit$set(unnamed.chunk.label = 'main-chunk')
opts_knit$set(child.command = 'include')
opts_knit$set(self.contained=FALSE)
opts_chunk$set(fig.path='figure/pos-', fig.align='center', fig.show='hold', size="footnotesize", dev='pdf', dev.args=list(family='ArialMT'), cache=FALSE) #
opts_chunk$set(tidy=FALSE,size='footnotesize')
options(replace.assign=TRUE,width=70)
## ----fig-setup, include=FALSE, cache=FALSE--------------------------------------------------------------------------
opts_fig_very_wide <- list(fig.width=9, fig.height=3.9, out.width='.98\\textwidth')
opts_fig_wide <- list(fig.width=7, fig.height=3.9, out.width='.76\\textwidth')
opts_fig_wide_square <- list(fig.width=7, fig.height=7, out.width='.76\\textwidth')
opts_fig_narrow <- list(fig.width=5.444, fig.height=3.9, out.width='.60\\textwidth')
opts_fig_narrow_square <- list(fig.width=5.444, fig.height=5.444, out.width='.60\\textwidth')
opts_fig_very_narrow <- opts_fig_narrow
opts_fig_medium <- opts_fig_narrow
opts_chunk$set(opts_fig_narrow)
## ----match-setup, include=FALSE-------------------------------------------------------------------------------------
options(warnPartialMatchAttr = FALSE,
warnPartialMatchDollar = FALSE,
warnPartialMatchArgs = FALSE)
## ----diagnose-set-up, echo=FALSE, include=FALSE, cache=FALSE--------------------------------------------------------
eval_diag <- FALSE
knitter_diag <- function() {opts_knit$get()["unnamed.chunk.label"]}
R_diag <- function(){
list(
"Search path" = search(),
"Working dir" = getwd(),
"Number of loaded DLLs" = length(getLoadedDLLs()),
"Max. loaded DLLs" = Sys.getenv(x = "R_MAX_NUM_DLLS", names = TRUE)
)
}
other_diag <- function(){NULL}
## ----children-flag, echo=FALSE, include=FALSE, cache=FALSE----------------------------------------------------------
incl_all <- TRUE
## ----child-r-maps, child='R.maps.Rnw', eval= FALSE------------------------------------------------------------------
## NA
## -------------------------------------------------------------------------------------------------------------------
Sys.info()
## ----eval=FALSE, echo=FALSE-----------------------------------------------------------------------------------------
## R.Version()
## -------------------------------------------------------------------------------------------------------------------
sessionInfo()