R/HyperParameters.R

In Myrrix: Interface to Myrrix. Myrrix is a Complete, Real-Time, Scalable Clustering and Recommender System, Evolved from Apache Mahout

#' @rdname RecommenderMethods-methods
#' @aliases setMyrrixHyperParameters setMyrrixHyperParameters,list-method 
#' @exportMethod setMyrrixHyperParameters
setGeneric("setMyrrixHyperParameters", function(params, ...) standardGeneric("setMyrrixHyperParameters"))
setMethod("setMyrrixHyperParameters", signature=signature(params = "list"),
          definition = function(params){
            stopifnot(length(names(params)) == length(params) & length(list) > 0)
            javasystem <- .jnew("java.lang.System")
            for(systemproperty in names(params)){
              javasystem$setProperty(systemproperty, as.character(params[[systemproperty]]))
            }
          })

#' @rdname RecommenderMethods-methods
#' @aliases getMyrrixHyperParameters getMyrrixHyperParameters,character-method getMyrrixHyperParameters,missing-method 
#' @exportMethod getMyrrixHyperParameters 
setGeneric("getMyrrixHyperParameters", function(parameters, ...) standardGeneric("getMyrrixHyperParameters"))
.getMyrrixHyperParameters <- function(parameters){
  javasystem <- .jnew("java.lang.System")            
  systemproperties <- list()
  props <- javasystem$getProperties()$entrySet()
  props <- props$toArray()
  for(i in seq_len(props$length)){
    entry <- props[[i]]
    systemproperties[[entry$getKey()]] <- entry$getValue()
  }           
  systemproperties
}
setMethod("getMyrrixHyperParameters", signature="missing", definition = .getMyrrixHyperParameters)
setMethod("getMyrrixHyperParameters", signature="character", definition = function(parameters){
  systemproperties <- .getMyrrixHyperParameters(parameters)
  if(length(parameters) > 0){
    systemproperties <- systemproperties[names(systemproperties)[names(systemproperties) %in% parameters]]
  } 
  systemproperties
})