create gatingTemplate module. #1

DESCRIPTION

@@ -1,8 +1,27 @@
 Package: shinyCyto
 Title: What the Package Does (one line, title case)
 Version: 0.0.0.9000
-Authors@R: person("First", "Last", email = "[email protected]", role = c("aut", "cre"))
-Description: What the package does (one paragraph)
-Depends: R (>= 3.2.0)
-License: What license is it under?
+Authors@R: person("Mike", "Jiang", email = "[email protected]", role = c("aut", "cre"))
+Description: Shiny app for openCyto framework
+Depends:
+    R (>= 3.2.0)
+Imports:
+    flowCore,
+    flowWorkspace,
+    openCyto,
+    shinyjs,
+    shinyBS,
+    shiny
+License: GPL-2
 LazyData: true
+RoxygenNote: 5.0.1
+Collate:
+    'module_gatingMethod.R'
+    'utils.R'
+    'module_gatingTemplate.R'
+    'gadget_gatingTemplate.R'
+    'global.R'
+    'module_gsMenu.R'
+    'module_parseWorkspace.R'
+    'server.R'
+    'ui.R'

NAMESPACE

@@ -1 +1,17 @@
-exportPattern("^[^\\.]")
+# Generated by roxygen2: do not edit by hand
+
+export(gatingTemplateGadget)
+import(flowCore)
+import(flowWorkspace)
+import(miniUI)
+import(openCyto)
+import(shiny)
+importFrom(DT,datatable)
+importFrom(ggcyto,ggcyto_par_set)
+importFrom(ggplot2,autoplot)
+importFrom(jsonlite,toJSON)
+importFrom(shinyBS,bsButton)
+importFrom(shinyBS,bsModal)
+importFrom(shinyBS,bsTooltip)
+importFrom(shinyjs,hidden)
+importFrom(shinysky,busyIndicator)

R/gadget_gatingTemplate.R

@@ -0,0 +1,28 @@
+#' gatingTemplate gadget
+#'
+#' This gadget allows you to interactively build gating template for the given GatingSet.
+#'
+#' @param gs A GatingSet
+#' @return A template as a data.table 
+#' @export
+#' @examples
+#' if (interactive()) {
+#'   gt_tbl <- gatingTemplateGadget(gs)
+#' }
+#' @import shiny
+#' @import miniUI
+#' @include module_gatingTemplate.R
+gatingTemplateGadget <- function(gs){
+  if(!is(gs, "GatingSet"))
+    stop("You did not provide a GatingSet!", call. = FALSE)
+  gs <- clone(gs)
+  ui <- miniPage(
+        gadgetTitleBar("Build a gating template")
+
+        , miniContentPanel(gatingTemplateUI("gt1"))
+  )
+  server <- function(input, output, session) {
+    callModule(gatingTemplateServer, "gt1", gs)
+  }
+  runGadget(ui, server, viewer = browserViewer())
+}