R/utils_layout.R
In Economic/epitable: Make HTML Tables Compatible with EPI's Website
# load EPI CSS
epicss <-
system.file("extdata", "epi-chart.css" ,package = "epitable") %>%
read_file() %>%
# paste("html * {font-family: 'Proxima Nova', 'Lato' !important;}\n") %>%
paste(".figure.figure-theme-clean{margin:0;border-top:none;}\n") %>%
paste(".figure.figure-theme-clean .figInner{border-bottom:none;}\n") %>%
paste(".figure .figInner table th[scope=\"col\"][colspan],.figure .figInner table th[scope=\"colgroup\"][colspan]{text-transform:none}\n")
selfcontained_bodypre <- paste("<div class=\"figure figure-table figure-theme-clean\"><div class=\"figInner\">","\n")
selfcontained_bodypost <- paste("</div></div>\n")
# top matter for self-contained webpage
selfcontained_top <- function() {
htmlpage <- paste("<html>",
"<head>",
"<meta http-equiv=\"Content-type\" content=\"text/html;charset=UTF-8\">",
"<style>",
epicss,
"</style>",
"</head>",
"<body>",
selfcontained_bodypre,
"",
sep="\n")
return(htmlpage)
}
# bottom matter for self-contained webpage
selfcontained_bottom <- function() {
htmlpage <- paste("",
selfcontained_bodypost,
"</body>",
"</html>",
sep="\n")
return(htmlpage)
}
Economic/epitable documentation built on May 8, 2019, 8:06 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# load EPI CSS
epicss <-
system.file("extdata", "epi-chart.css" ,package = "epitable") %>%
read_file() %>%
# paste("html * {font-family: 'Proxima Nova', 'Lato' !important;}\n") %>%
paste(".figure.figure-theme-clean{margin:0;border-top:none;}\n") %>%
paste(".figure.figure-theme-clean .figInner{border-bottom:none;}\n") %>%
paste(".figure .figInner table th[scope=\"col\"][colspan],.figure .figInner table th[scope=\"colgroup\"][colspan]{text-transform:none}\n")
selfcontained_bodypre <- paste("<div class=\"figure figure-table figure-theme-clean\"><div class=\"figInner\">","\n")
selfcontained_bodypost <- paste("</div></div>\n")
# top matter for self-contained webpage
selfcontained_top <- function() {
htmlpage <- paste("<html>",
"<head>",
"<meta http-equiv=\"Content-type\" content=\"text/html;charset=UTF-8\">",
"<style>",
epicss,
"</style>",
"</head>",
"<body>",
selfcontained_bodypre,
"",
sep="\n")
return(htmlpage)
}
# bottom matter for self-contained webpage
selfcontained_bottom <- function() {
htmlpage <- paste("",
selfcontained_bodypost,
"</body>",
"</html>",
sep="\n")
return(htmlpage)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.