R/slickgrid.R
In erikriverson/mutable: Modular approach to generating customized tables in markup languages (LaTeX, HTML, plain text, ...)
#' @export
muSlickGridMarkupGenerator <- function(x, file) {
cat(c('var data = ',
toJSON(x) , ";\n"), file = file, append = TRUE)
}
#' @export
muSlickGridHeader <- function(x, caption, footnote) {
c('<div id="myGrid" style="width:700px;height:500px;"></div>',
'<script>',
'var grid;',
'var columns = [',
paste('{id: "',
colnames(x),
'", name: "',
colnames(x),
'", field: "',
colnames(x),
'"},', sep = ""),
' ];',
'',
'var options = {',
' enableCellNavigation: true,',
' enableColumnReorder: false',
'};',
'')
}
#' @export
muSlickGridFooter <- function(x) {
c('$(function () {',
'grid = new Slick.Grid("#myGrid", data, columns, options);',
'})',
'</script>')
}
#' @export
muSlickGridDocFooter <- muHTMLDocFooter
#' @export
muSlickGridDocHeader <- function(cssFile) {
c('<!DOCTYPE HTML>',
'<html>',
'<head>',
'<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">',
'<title>SlickGrid example 1: Basic grid 2</title>',
'<link rel="stylesheet" href="../slick.grid.css" type="text/css"/>',
'<link rel="stylesheet" href="../css/smoothness/jquery-ui-1.8.16.custom.css" type="text/css"/>',
'<link rel="stylesheet" href="examples.css" type="text/css"/>',
'</head>',
'<body>',
'<table width="100%">',
'<tr>',
'<td valign="top" width="50%">',
'<div id="myGrid" style="width:700px;height:500px;"></div>',
'</td>',
'<td valign="top">',
'<h2>Demonstrates:</h2>',
'<ul>',
'<li>basic grid with minimal configuration</li>',
'</ul>',
'</td>',
'</tr>',
'</table>',
'<script src="../lib/jquery-1.7.min.js"></script>',
'<script src="../lib/jquery.event.drag-2.0.min.js"></script>',
'<script src="../slick.core.js"></script>',
'<script src="../slick.grid.js"></script>')
}
erikriverson/mutable documentation built on May 16, 2019, 8:43 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.
#' @export
muSlickGridMarkupGenerator <- function(x, file) {
cat(c('var data = ',
toJSON(x) , ";\n"), file = file, append = TRUE)
}
#' @export
muSlickGridHeader <- function(x, caption, footnote) {
c('<div id="myGrid" style="width:700px;height:500px;"></div>',
'<script>',
'var grid;',
'var columns = [',
paste('{id: "',
colnames(x),
'", name: "',
colnames(x),
'", field: "',
colnames(x),
'"},', sep = ""),
' ];',
'',
'var options = {',
' enableCellNavigation: true,',
' enableColumnReorder: false',
'};',
'')
}
#' @export
muSlickGridFooter <- function(x) {
c('$(function () {',
'grid = new Slick.Grid("#myGrid", data, columns, options);',
'})',
'</script>')
}
#' @export
muSlickGridDocFooter <- muHTMLDocFooter
#' @export
muSlickGridDocHeader <- function(cssFile) {
c('<!DOCTYPE HTML>',
'<html>',
'<head>',
'<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">',
'<title>SlickGrid example 1: Basic grid 2</title>',
'<link rel="stylesheet" href="../slick.grid.css" type="text/css"/>',
'<link rel="stylesheet" href="../css/smoothness/jquery-ui-1.8.16.custom.css" type="text/css"/>',
'<link rel="stylesheet" href="examples.css" type="text/css"/>',
'</head>',
'<body>',
'<table width="100%">',
'<tr>',
'<td valign="top" width="50%">',
'<div id="myGrid" style="width:700px;height:500px;"></div>',
'</td>',
'<td valign="top">',
'<h2>Demonstrates:</h2>',
'<ul>',
'<li>basic grid with minimal configuration</li>',
'</ul>',
'</td>',
'</tr>',
'</table>',
'<script src="../lib/jquery-1.7.min.js"></script>',
'<script src="../lib/jquery.event.drag-2.0.min.js"></script>',
'<script src="../slick.core.js"></script>',
'<script src="../slick.grid.js"></script>')
}
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.