R/output.template.R
In kridsadakorn/ipcaps.bioc: Iterative Pruning to Capture Population Structure
#' (Internal object) The HTML output template for ipcaps
#'
#' \code{output.template} contains \code{$lno_title}, \code{$lno_data},
#' \code{$lno_leafnode}, \code{$lno_body}, and \code{$template} as explained
#' below:
#' \describe{
#' \item{lno_title}{A index number of \code{$template} that a title of HTML
#' file is replaced.}
#' \item{lno_data}{A index number of \code{$template} that a data section in
#' the HTML file is replaced.}
#' \item{lno_leafnode}{A index number of \code{$template} that a leaf-node
#' section in the HTML file is replaced.}
#' \item{lno_body}{A index number of \code{$template} that a body section in
#' the HTML file is replaced.}
#' \item{template}{A vector of characters for HTML file.}
#' }
#'
#' @name output.template
#' @docType data
#' @format A list with with 5 objects
#' @keywords output.template
"output.template"
output.template <- list()
output.template$lno_title <- 4
output.template$lno_data <- 16
output.template$lno_leafnode <- 18
output.template$lno_body <- 61
output.template$template <- rep("", 68)
output.template$template[1] <- paste0("<html>")
output.template$template[2] <- paste0(" <head>")
output.template$template[3] <- paste0(" <title>")
output.template$template[4] <-
paste0(" <!--###REPLACE###title###-->The ",
"result of IP2CAPS")
output.template$template[5] <- paste0(" </title>")
output.template$template[6] <-
paste0(" <script type='text/javascript' ",
"src='https://www.google.com/jsapi'></script>")
output.template$template[7] <-
paste0(" <script type='text/javascript'>")
output.template$template[8] <-
paste0(" google.load('visualization', '1',",
" {packages:['orgchart']});")
output.template$template[9] <-
paste0(" google.setOnLoadCallback(",
"drawChart);")
output.template$template[10] <-
paste0(" function drawChart() {")
output.template$template[11] <-
paste0(" var data = new google.",
"visualization.DataTable();")
output.template$template[12] <-
paste0(" data.addColumn('string',",
" 'Node');")
output.template$template[13] <-
paste0(" data.addColumn('string', ",
"'ParentNode');")
output.template$template[14] <-
paste0(" data.addColumn('string', ",
"'ToolTip');")
output.template$template[15] <- paste0(" data.addRows([")
output.template$template[16] <-
paste0(
" /*###REPLACE###data###*/",
"[{v:'Mike', f:'<div class=\"box_class\"><p class=\"head_class\">Head",
"</p>President</div>'}, '', 'The President'],"
)
output.template$template[17] <- paste0(" ]);")
output.template$template[18] <-
paste0(
" /*###REPLACE###leafnode###*/",
"data.setRowProperty(1, 'style', 'border: ",
"2px solid #DB6E6E; background",
"-color:#FFE1E1');"
)
output.template$template[19] <- paste0(" ")
output.template$template[20] <-
paste0(
" var chart = new google.",
"visualization.OrgChart(document.getElementById('chart_div'));"
)
output.template$template[21] <-
paste0(
" chart.draw(data, {allowHtml:",
"true,allowCollapse:true,size:'small',nodeClass:'normal_node'});"
)
output.template$template[22] <- paste0(" }")
output.template$template[23] <- paste0(" </script>")
output.template$template[24] <-
paste0(" <style type=\"text/css\" ",
"media=\"all\">")
output.template$template[25] <- paste0(" .box_class { ")
output.template$template[26] <-
paste0(" font-size:20px;")
output.template$template[27] <-
paste0(" font-family:Arial;")
output.template$template[28] <-
paste0(" font-weight:normal;")
output.template$template[29] <-
paste0(" vertical-align:text-top;")
output.template$template[30] <- paste0(" }")
output.template$template[31] <- paste0(" .head_class { ")
output.template$template[32] <- paste0(" color:purple;")
output.template$template[33] <-
paste0(" font-size:20px;")
output.template$template[34] <-
paste0(" font-family:Arial;")
output.template$template[35] <-
paste0(" font-weight:bold;")
output.template$template[36] <-
paste0(" text-align:center;")
output.template$template[37] <- paste0(" }")
output.template$template[38] <- paste0(" .subhead_class { ")
output.template$template[39] <- paste0(" color:green; ")
output.template$template[40] <-
paste0(" text-align:center;")
output.template$template[41] <-
paste0(" font-style:italic;")
output.template$template[42] <- paste0(" }")
output.template$template[43] <- paste0(" .foot_note {")
output.template$template[44] <- paste0(" color:grey; ")
output.template$template[45] <-
paste0(" font-style:italic; ")
output.template$template[46] <-
paste0(" font-family:Arial; ")
output.template$template[47] <-
paste0(" font-size:10px;")
output.template$template[48] <-
paste0(" text-align:center;")
output.template$template[49] <- paste0(" }")
output.template$template[50] <- paste0(" .normal_node {")
output.template$template[51] <-
paste0(" border: 3px solid black; ")
output.template$template[52] <-
paste0(" background-color:#E1E4FF;")
output.template$template[53] <-
paste0(" text-align:left;")
output.template$template[54] <-
paste0(" vertical-align:text-top;")
output.template$template[55] <- paste0(" }")
output.template$template[56] <- paste0(" </style>")
output.template$template[57] <- paste0(" </head>")
output.template$template[58] <- paste0("")
output.template$template[59] <- paste0(" <body>")
output.template$template[60] <- paste0(
" <h2 align=\"center\" ",
"style=\"color:black; font-style:bold; font-family:Arial,Helvetica,",
"sans-serif; font-size:28px;\">"
)
output.template$template[61] <-
paste0(" <!--###REPLACE###body###-->",
"The result of R.ipPCA")
output.template$template[62] <- paste0(" <br><br></h4>")
output.template$template[63] <-
paste0(" <div id='chart_div'></div>")
output.template$template[64] <-
paste0(" <div class=\"foot_note\">")
output.template$template[65] <-
paste0(
" <br><br>This page was displayed",
" using the online <a href=\"https://developers.google.com/chart/",
"interactive/docs/gallery/orgchart#\" target=\"_blank\">Google ",
"Organizational Chart</a> library."
)
output.template$template[66] <- paste0(" </div>")
output.template$template[67] <- paste0(" </body>")
output.template$template[68] <- paste0("</html>")
kridsadakorn/ipcaps.bioc documentation built on Jan. 22, 2020, 11:18 p.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.
#' (Internal object) The HTML output template for ipcaps
#'
#' \code{output.template} contains \code{$lno_title}, \code{$lno_data},
#' \code{$lno_leafnode}, \code{$lno_body}, and \code{$template} as explained
#' below:
#' \describe{
#' \item{lno_title}{A index number of \code{$template} that a title of HTML
#' file is replaced.}
#' \item{lno_data}{A index number of \code{$template} that a data section in
#' the HTML file is replaced.}
#' \item{lno_leafnode}{A index number of \code{$template} that a leaf-node
#' section in the HTML file is replaced.}
#' \item{lno_body}{A index number of \code{$template} that a body section in
#' the HTML file is replaced.}
#' \item{template}{A vector of characters for HTML file.}
#' }
#'
#' @name output.template
#' @docType data
#' @format A list with with 5 objects
#' @keywords output.template
"output.template"
output.template <- list()
output.template$lno_title <- 4
output.template$lno_data <- 16
output.template$lno_leafnode <- 18
output.template$lno_body <- 61
output.template$template <- rep("", 68)
output.template$template[1] <- paste0("<html>")
output.template$template[2] <- paste0(" <head>")
output.template$template[3] <- paste0(" <title>")
output.template$template[4] <-
paste0(" <!--###REPLACE###title###-->The ",
"result of IP2CAPS")
output.template$template[5] <- paste0(" </title>")
output.template$template[6] <-
paste0(" <script type='text/javascript' ",
"src='https://www.google.com/jsapi'></script>")
output.template$template[7] <-
paste0(" <script type='text/javascript'>")
output.template$template[8] <-
paste0(" google.load('visualization', '1',",
" {packages:['orgchart']});")
output.template$template[9] <-
paste0(" google.setOnLoadCallback(",
"drawChart);")
output.template$template[10] <-
paste0(" function drawChart() {")
output.template$template[11] <-
paste0(" var data = new google.",
"visualization.DataTable();")
output.template$template[12] <-
paste0(" data.addColumn('string',",
" 'Node');")
output.template$template[13] <-
paste0(" data.addColumn('string', ",
"'ParentNode');")
output.template$template[14] <-
paste0(" data.addColumn('string', ",
"'ToolTip');")
output.template$template[15] <- paste0(" data.addRows([")
output.template$template[16] <-
paste0(
" /*###REPLACE###data###*/",
"[{v:'Mike', f:'<div class=\"box_class\"><p class=\"head_class\">Head",
"</p>President</div>'}, '', 'The President'],"
)
output.template$template[17] <- paste0(" ]);")
output.template$template[18] <-
paste0(
" /*###REPLACE###leafnode###*/",
"data.setRowProperty(1, 'style', 'border: ",
"2px solid #DB6E6E; background",
"-color:#FFE1E1');"
)
output.template$template[19] <- paste0(" ")
output.template$template[20] <-
paste0(
" var chart = new google.",
"visualization.OrgChart(document.getElementById('chart_div'));"
)
output.template$template[21] <-
paste0(
" chart.draw(data, {allowHtml:",
"true,allowCollapse:true,size:'small',nodeClass:'normal_node'});"
)
output.template$template[22] <- paste0(" }")
output.template$template[23] <- paste0(" </script>")
output.template$template[24] <-
paste0(" <style type=\"text/css\" ",
"media=\"all\">")
output.template$template[25] <- paste0(" .box_class { ")
output.template$template[26] <-
paste0(" font-size:20px;")
output.template$template[27] <-
paste0(" font-family:Arial;")
output.template$template[28] <-
paste0(" font-weight:normal;")
output.template$template[29] <-
paste0(" vertical-align:text-top;")
output.template$template[30] <- paste0(" }")
output.template$template[31] <- paste0(" .head_class { ")
output.template$template[32] <- paste0(" color:purple;")
output.template$template[33] <-
paste0(" font-size:20px;")
output.template$template[34] <-
paste0(" font-family:Arial;")
output.template$template[35] <-
paste0(" font-weight:bold;")
output.template$template[36] <-
paste0(" text-align:center;")
output.template$template[37] <- paste0(" }")
output.template$template[38] <- paste0(" .subhead_class { ")
output.template$template[39] <- paste0(" color:green; ")
output.template$template[40] <-
paste0(" text-align:center;")
output.template$template[41] <-
paste0(" font-style:italic;")
output.template$template[42] <- paste0(" }")
output.template$template[43] <- paste0(" .foot_note {")
output.template$template[44] <- paste0(" color:grey; ")
output.template$template[45] <-
paste0(" font-style:italic; ")
output.template$template[46] <-
paste0(" font-family:Arial; ")
output.template$template[47] <-
paste0(" font-size:10px;")
output.template$template[48] <-
paste0(" text-align:center;")
output.template$template[49] <- paste0(" }")
output.template$template[50] <- paste0(" .normal_node {")
output.template$template[51] <-
paste0(" border: 3px solid black; ")
output.template$template[52] <-
paste0(" background-color:#E1E4FF;")
output.template$template[53] <-
paste0(" text-align:left;")
output.template$template[54] <-
paste0(" vertical-align:text-top;")
output.template$template[55] <- paste0(" }")
output.template$template[56] <- paste0(" </style>")
output.template$template[57] <- paste0(" </head>")
output.template$template[58] <- paste0("")
output.template$template[59] <- paste0(" <body>")
output.template$template[60] <- paste0(
" <h2 align=\"center\" ",
"style=\"color:black; font-style:bold; font-family:Arial,Helvetica,",
"sans-serif; font-size:28px;\">"
)
output.template$template[61] <-
paste0(" <!--###REPLACE###body###-->",
"The result of R.ipPCA")
output.template$template[62] <- paste0(" <br><br></h4>")
output.template$template[63] <-
paste0(" <div id='chart_div'></div>")
output.template$template[64] <-
paste0(" <div class=\"foot_note\">")
output.template$template[65] <-
paste0(
" <br><br>This page was displayed",
" using the online <a href=\"https://developers.google.com/chart/",
"interactive/docs/gallery/orgchart#\" target=\"_blank\">Google ",
"Organizational Chart</a> library."
)
output.template$template[66] <- paste0(" </div>")
output.template$template[67] <- paste0(" </body>")
output.template$template[68] <- paste0("</html>")
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.