R/dollar.R

In rscala: Bridge Between 'R' and 'Scala' with Callbacks

#' @export
#' 
"$.rscalaBridge" <- function(bridge, snippet) {
  if ( ! is.function(bridge) ) stop("When defining an rscala function, parameter lists are not supported.")
  details <- attr(bridge,"details")
  structure(function(...) {
    scalaInvoke(details, snippet, list(...), parent.frame(1))
  },class="rscalaStub")
}

#' @export
#' 
"$.rscalaReference" <- function(reference, snippet) {
  rre <- attr(reference,"rscalaReferenceEnvironment")
  details <- rre[["details"]]
  envir <- rre[["envir"]]
  structure(function(...) {
    scalaInvoke(details, snippet, list(...,reference), envir, withReference=TRUE)
  },class="rscalaStub")
}

#' @export
#' 
"$<-.rscalaBridge" <- function(bridge, snippet, value) {
  details <- attr(bridge,"details")
  if ( snippet == "showCode" ) {
    bridge(x=as.logical(value[1])) ^ "conduit.showCode = x"
  } else if ( snippet == "debugTranscompilation" ) {
    assign("debugTranscompilation",identical(value,TRUE),envir=details)
  } else if ( snippet == "debug" ) {
    bridge(x=as.logical(value[1])) ^ "conduit.debug = x"
  } else stop(paste0("Unsupported option: ", snippet))
  bridge
}