init

.Rbuildignore

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

.gitignore

@@ -0,0 +1,5 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+*.Rproj

DESCRIPTION

@@ -0,0 +1,12 @@
+Package: synapserutils
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1.0
+Author: Who wrote it
+Maintainer: The package maintainer <yourself@somewhere.net>
+Description: More about what it does (maybe more than one line)
+    Use four spaces when indenting paragraphs within the Description.
+License: What license is it under?
+Encoding: UTF-8
+LazyData: true
+Depends: synapser (>= 0.1.25)

NAMESPACE

@@ -0,0 +1 @@
+exportPattern("^[[:alpha:]]+")

R/zzz.R

@@ -0,0 +1,37 @@
+.onLoad <- function(libname, pkgname) {
+  .defineUtilFunctions()
+}
+
+.getSynapseUtilsFunctionInfo <- function(rootDir) {
+  pyImport("synapseutils")
+  pyExec("info = functionInfo.functionInfo(synapseutils)")
+  functionInfo <- pyGet("info")
+  result <- lapply(X = functionInfo, function(x) {
+    list(name = x$name, synName = x$name, functionContainerName = "synapseutils", args = x$args, doc = x$doc, title = x$name)
+  })
+}
+
+.defineFunction <- function(synName, pyName, functionContainerName) {
+  force(synName)
+  force(pyName)
+  force(functionContainerName)
+  assign(sprintf(".%s", synName), function(...) {
+    functionContainer <- pyGet(functionContainerName, simplify = FALSE)
+    argsAndKwArgs <- .determineArgsAndKwArgs(...)
+    functionAndArgs <- append(list(functionContainer, pyName), argsAndKwArgs$args)
+    .cleanUpStackTrace(pyCall, list("gateway.invoke", args = functionAndArgs, kwargs = argsAndKwArgs$kwargs, simplify = F))
+  })
+  setGeneric(
+    name = synName,
+    def = function(...) {
+      do.call(sprintf(".%s", synName), args = list(pyGet("syn"), ...))
+    }
+  )
+}
+
+.defineUtilFunctions <- function() {
+  functionInfo <- .getSynapseUtilsFunctionInfo(system.file(package="synapser"))
+  for (f in functionInfo) {
+    .defineFunction(f$synName, f$name, f$functionContainerName)
+  }
+}