R/slickgrid.R

Defines functions muSlickGridDocHeader muSlickGridFooter muSlickGridHeader muSlickGridMarkupGenerator

#' @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 13, 2017, 7:18 p.m.