-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy path.Rprofile
127 lines (110 loc) · 5.9 KB
/
.Rprofile
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
118
119
120
121
122
123
124
125
126
127
# rm(list = ls(all.names = TRUE))
# Load Libraries
library(knitr)
library(kableExtra)
library(formatR)
# jointly use R and Python Together
# RMD Options
options(knitr.duplicate.label = "allow")
options(bookdown.render.file_scope = FALSE)
knitr::opts_chunk$set(fig.width=7, fig.height=4, fig.align="center")
# knitr::opts_chunk$set(tidy.opts=list(width.cutoff=60), tidy=TRUE)
knitr::opts_chunk$set(warning=FALSE, message=FALSE, cache=FALSE)
knitr::opts_chunk$set(engine='R')
# Output HTML or Latex
if (knitr::is_latex_output()) {
options(knitr.table.format = "latex")
} else {
options(knitr.table.format = "html")
}
# Table Output Options
kable_styling_fc = function(kable_input){
kable_styling(kable_input,
bootstrap_options = c("striped", "hover", "responsive"),
latex_options = c("striped", "hold_position"),
full_width = FALSE,
fixed_thead = T,
position = "center",
font_size = NULL,
row_label_position = "l")
}
# Table Output Options:
# 1. scale_down for TEX
# 2. box width: see PrjOptiSNW\style.css for body width, set width to bodywidth - 225
if (knitr::is_latex_output()) {
kable_styling_fc_wide = function(kable_input){
kable_styling(kable_input,
bootstrap_options = c("striped", "hover", "responsive"),
latex_options = c("striped", "scale_down", "hold_position"),
full_width = FALSE,
fixed_thead = T,
position = "center",
font_size = NULL,
row_label_position = "l")
}
} else {
kable_styling_fc_wide = function(kable_input){
kable_styling(kable_input,
bootstrap_options = c("striped", "hover", "responsive"),
latex_options = c("striped", "scale_down", "hold_position"),
full_width = FALSE,
fixed_thead = T,
position = "center",
font_size = NULL,
row_label_position = "l") %>%
scroll_box(width = "875px")
}
}
# Get Current File Path
spt_file_current <- knitr::current_input(dir = TRUE)
print(paste0('spt_file_current:',spt_file_current))
spt_file_current <- gsub(x = spt_file_current, pattern = "_mod.Rmd", replacement = ".Rmd")
if(!is.null(spt_file_current)) {
sfc_prj='/PrjOptiSNW'
sph_gitpages_root='https://fanwangecon.github.io/'
sph_github_root='https://github.com/FanWangEcon/'
sph_branch='/master'
sph_pdf='/htmlpdfm'
sph_html='/htmlpdfm'
sph_r='/htmlpdfm'
spt_root <- 'C:/Users/fan/PrjOptiSNW/'
spn_prj_rmd <- gsub(spt_root, "", spt_file_current)
spt_rmd_path <- paste0('/',dirname(spn_prj_rmd))
st_fullpath_noname <- dirname(spt_file_current)
st_fullpath_nosufx <- sub('\\.Rmd$', '', spt_file_current)
st_file_wno_suffix <- sub('\\.Rmd$', '', basename(spt_file_current))
print(paste0('st_fullpath_noname:', st_fullpath_noname))
print(paste0('st_fullpath_nosufx:', st_fullpath_nosufx))
print(paste0('st_file_wno_suffix:', st_file_wno_suffix))
spth_pdf_html <- paste0(st_fullpath_noname, '/htmlpdfm/')
sfle_pdf_html <- paste0(st_fullpath_noname, '/htmlpdfm/', st_file_wno_suffix)
print(spth_pdf_html)
sph_source_blob_root = paste0(sph_github_root, sfc_prj, '/blob', sph_branch, spt_rmd_path, '/')
sph_rmd_pdf = paste0(sph_source_blob_root, sph_pdf, '/', st_file_wno_suffix, '.pdf')
sph_rmd_m = paste0(sph_source_blob_root, sph_r, '/', st_file_wno_suffix, '.m')
sph_rmd_mlx = paste0(sph_source_blob_root, '/', st_file_wno_suffix, '.mlx')
sph_source_web_root = paste0(sph_gitpages_root, sfc_prj, spt_rmd_path, '/')
sph_rmd_html = paste0(sph_source_web_root, sph_html, '/', st_file_wno_suffix, '.html')
st_head_link = '> Go to the'
st_head_link = paste0(st_head_link, ' [**MLX**](', sph_rmd_mlx ,'),')
st_head_link = paste0(st_head_link, ' [**M**](', sph_rmd_m ,'),')
st_head_link = paste0(st_head_link, ' [**PDF**](', sph_rmd_pdf ,'),')
st_head_link = paste0(st_head_link, ' or [**HTML**](', sph_rmd_html ,')')
st_head_link = paste0(st_head_link, ' version of this file.')
# Common Shared Text and Strings
total_area <- (800 * 7) / 2
if (st_file_wno_suffix == 'NSW-Dynamic-Life-Cycle-and-Stimulus-Checks-Code-Companion') {
text_shared_preamble_one <- paste0("> Go back to [NSW 2020 Code Companion](https://fanwangecon.github.io/PrjOptiSNW/) home page, [Wang 2020 Optimal Allocation](https://fanwangecon.github.io/PrjOptiAlloc/) project page, or the [MEconTools](https://fanwangecon.github.io/MEconTools/) Toolbox.")
} else {
text_shared_preamble_one <- paste0(st_head_link, " Go back to [NSW 2020 Code Companion](https://fanwangecon.github.io/PrjOptiSNW/) home page, [Wang 2020 Optimal Allocation](https://fanwangecon.github.io/PrjOptiAlloc/) project page, or the [MEconTools](https://fanwangecon.github.io/MEconTools/) Toolbox.")
}
}
text_shared_preamble_two <- ""
text_shared_preamble_thr <- ""
if (knitr::is_latex_output()) {
text_top_count <- ""
text_end_count <- ""
} else {
text_top_count <- "[](https://github.com/FanWangEcon/PrjOptiSNW) [](https://github.com/FanWangEcon/PrjOptiSNW/stargazers) [](https://github.com/FanWangEcon/PrjOptiSNW/network/members) [](https://github.com/FanWangEcon/PrjOptiSNW/watchers) [](https://zenodo.org/badge/latestdoi/273278814)"
text_end_count <- "[](https://github.com/FanWangEcon/PrjOptiSNW/commits/master) [](https://github.com/FanWangEcon/PrjOptiSNW/graphs/commit-activity) [](https://github.com/FanWangEcon/PrjOptiSNW/issues) [](https://github.com/FanWangEcon/PrjOptiSNW/pulls)"
}