move R to /pkg directory

Author: timelyportfolio

.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

.gitignore

@@ -16,3 +16,4 @@ build/
 # VIM is awesome
 *.swo
 *.swp
+.Rproj.user

NAMESPACE

@@ -5,12 +5,18 @@ SaveWorkspace: No
 AlwaysSaveHistory: Default
 
 EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
 Encoding: UTF-8
 
+RnwWeave: Sweave
+LaTeX: XeLaTeX
+
 AutoAppendNewline: Yes
 StripTrailingWhitespace: Yes
 
 BuildType: Package
 PackageUseDevtools: Yes
+PackagePath: pkg
 PackageInstallArgs: --no-multiarch --with-keep.source
 PackageRoxygenize: rd,collate,namespace

datacomb.Rproj

@@ -0,0 +1,6 @@
+# Generated by roxygen2 (4.1.0): do not edit by hand
+
+export(Datacomb)
+export(DatacombOutput)
+export(renderDatacomb)
+import(htmlwidgets)

DESCRIPTION pkg/DESCRIPTION

@@ -2,24 +2,28 @@
 #'
 #' An interface for viewing and combing through data frames.
 #'
+#' @example ./inst/examples/examples.R
 #' @import htmlwidgets
 #'
 #' @export
-Datacomb <- function(dataFrame, columns = c(), rowLabel = NULL, width = NULL, height = NULL) {
-  
+Datacomb <- function(
+  dataFrame, columns = colnames(dataFrame), rowLabel = NULL,
+  width = '100%', height = '100%'
+) {
+
   # build object of config options
   opts = list(
     dataFrame = dataFrame,
     columns = columns,
     rowLabel = rowLabel
   )
-  
+
   # create widget
   htmlwidgets::createWidget(
     name = 'datacomb',
     opts,
-    width = '100%',
-    height = '100%',
+    width = width,
+    height = height,
     package = 'datacomb'
   )
 }

pkg/NAMESPACE

@@ -0,0 +1,11 @@
+library(datacomb)
+
+df <- data.frame(model=rownames(mtcars),mtcars)
+Datacomb(
+  df,
+  columns = colnames(df)[-1],
+  rowLabel = "model"
+)
+
+data(diamonds, package = "ggplot2")
+Datacomb(diamonds)

R/datacomb.R pkg/R/datacomb.R

@@ -0,0 +1,23 @@
+% Generated by roxygen2 (4.1.0): do not edit by hand
+% Please edit documentation in R/datacomb.R
+\name{Datacomb}
+\alias{Datacomb}
+\title{Datacomb}
+\usage{
+Datacomb(dataFrame, columns = c(), rowLabel = NULL, width = "100\%",
+  height = "100\%")
+}
+\description{
+An interface for viewing and combing through data frames.
+}
+\examples{
+library(datacomb)
+
+df <- data.frame(model=rownames(mtcars),mtcars)
+Datacomb(
+  df,
+  columns = colnames(df)[-1],
+  rowLabel = "model"
+)
+}
+

pkg/inst/examples/examples.R

@@ -0,0 +1,12 @@
+% Generated by roxygen2 (4.1.0): do not edit by hand
+% Please edit documentation in R/datacomb.R
+\name{DatacombOutput}
+\alias{DatacombOutput}
+\title{Widget output function for use in Shiny}
+\usage{
+DatacombOutput(outputId, width = "100\%", height = "400px")
+}
+\description{
+Widget output function for use in Shiny
+}
+

inst/htmlwidgets/datacomb.js pkg/inst/htmlwidgets/datacomb.js

@@ -0,0 +1,12 @@
+% Generated by roxygen2 (4.1.0): do not edit by hand
+% Please edit documentation in R/datacomb.R
+\name{renderDatacomb}
+\alias{renderDatacomb}
+\title{Widget render function for use in Shiny}
+\usage{
+renderDatacomb(expr, env = parent.frame(), quoted = FALSE)
+}
+\description{
+Widget render function for use in Shiny
+}
+