Nothing
#
# Copyright 2007-2021 by the individuals mentioned in the source code history
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
##' imxMpiWrap
##'
##' This is an internal function exported for those people who know
##' what they are doing.
##'
##' @param fun fun
# nocov start
imxMpiWrap <- function(fun) {
function(...) {
require(OpenMx, quietly = TRUE)
return(fun(...))
}
}
# nocov end
##' imxSfClient
##'
##' As of snowfall 1.84, the snowfall supervisor process
##' stores an internal state information in a variable
##' named ".sfOption" that is located in the "snowfall" namespace.
##' The snowfall client processes store internal state
##' information in a variable named ".sfOption" that is located
##' in the global namespace.
##'
##' As long as the previous statement is true, then the current
##' process is a snowfall client if-and-only-if exists(".sfOption").
imxSfClient <- function() {
return(exists(".sfOption"))
}
omxLapply <- function(x, fun, ...) {
if (length(x) == 0) return(x)
libraries <- search()
if ("package:snowfall" %in% libraries) {
return(snowfall::sfClusterApplyLB(x, fun, ...)) # nocov
# } else if ("package:Rmpi" %in% libraries) {
# return(Rmpi::mpi.parLapply(x, imxMpiWrap(fun), ...)) # nocov
} else {
return(lapply(x, fun, ...))
}
}
omxSapply <- function(x, fun, ..., simplify = TRUE, USE.NAMES = TRUE) {
if (length(x) == 0) return(x)
libraries <- search()
if ("package:snowfall" %in% libraries) {
return(snowfall::sfSapply(x, fun, ..., simplify = simplify, USE.NAMES = USE.NAMES)) # nocov
} else {
return(sapply(x, fun, ..., simplify = simplify, USE.NAMES = USE.NAMES))
}
}
omxApply <- function(x, margin, fun, ...) {
if (length(x) == 0) return(x)
libraries <- search()
if ("package:snowfall" %in% libraries) {
return(snowfall::sfApply(x, margin, fun, ...)) # nocov
} else {
return(apply(x, margin, fun, ...))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.