core/org.eclipse.statet.rj.server.rpkg/pkg/R/init.R

 #=============================================================================#
 # Copyright (c) 2009, 2018 Stephan Wahlbrink and others.
 # 
 # This program and the accompanying materials are made available under the
 # terms of the Eclipse Public License 2.0 which is available at
 # https://www.eclipse.org/legal/epl-2.0, or the Apache License, Version 2.0
 # which is available at https://www.apache.org/licenses/LICENSE-2.0.
 # 
 # SPDX-License-Identifier: EPL-2.0 OR Apache-2.0
 # 
 # Contributors:
 #     Stephan Wahlbrink <sw@wahlbrink.eu> - initial API and implementation
 #=============================================================================#


## RJ init

#' Environment for configuration
.rj.config <- new.env()
.rj.config$isDebug <- FALSE

#' Environment for temporary R objects
.rj.tmp <- new.env()


#' Initializes the package
.onLoad <- function(libname, pkgname) {
	return (invisible(TRUE));
}


## Internal utils

.rj.errorHandler <- function(e) {
	if (.rj.config$isDebug) {
		print(e)
	}
}


resolveVisible <- function(result) {
	if (result$visible) {
		return (result$value)
	}
	else {
		return (invisible(result$value))
	}
}