R/rk.XML.dependencies.R

Defines functions rk.XML.dependencies

Documented in rk.XML.dependencies

# Copyright 2010-2022 Meik Michalke <meik.michalke@hhu.de>
#
# This file is part of the R package rkwarddev.
#
# rkwarddev is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# rkwarddev is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with rkwarddev.  If not, see <http://www.gnu.org/licenses/>.


#' Create XML node "dependencies" for RKWard pluginmaps
#'
#' @note The \code{<dependencies>} node was introduced with RKWard 0.6.1, please set the dependencies
#'    of your component/plugin accordingly.
#'
#' @param dependencies A named list with these elements:
#'    \describe{
#'      \item{rkward.min}{Minimum RKWard version needed for this plugin (optional)}
#'      \item{rkward.max}{Maximum RKWard version needed for this plugin (optional)}
#'      \item{R.min}{Minimum R version needed for this plugin (optional)}
#'      \item{R.max}{Maximum R version needed for this plugin (optional)}
#'    }
#' @param package A list of named character vectors, each with these elements:
#'    \describe{
#'      \item{name}{Name of a package this plugin depends on (required)}
#'      \item{min}{Minimum version of the package (optional)}
#'      \item{max}{Maximum version of the package (optional)}
#'      \item{repository}{Repository to download the package (optional, recommended)}
#'    }
#' @param pluginmap A named list with these elements:
#'    \describe{
#'      \item{name}{Identifier of a pluginmap this plugin depends on (required)}
#'      \item{min}{Minimum version of the pluginmap (optional)}
#'      \item{max}{Maximum version of the pluginmap (optional)}
#'      \item{url}{URL to get the pluginmap (required)}
#'    }
#' @param hints Logical, if \code{TRUE}, \code{NULL} values will be replaced with example text.
#' @importFrom rkward .rk.app.version
#' @export
#' @seealso
#'    \code{\link[rkwarddev:rk.XML.dependency_check]{rk.XML.dependency_check}},
#'    and the \href{help:rkwardplugins}{Introduction to Writing Plugins for RKWard}
#' @examples
#' dependencies.node <- rk.XML.dependencies(
#'   dependencies=list(
#'     rkward.min="0.5.3",
#'     rkward.max="",
#'     R.min="2.10",
#'     R.max=""),
#'   package=list(
#'     c(name="heisenberg", min="0.11-2", max="",
#'       repository="http://rforge.r-project.org"),
#'     c(name="DreamsOfPi", min="0.2", max="", repository="")),
#'   pluginmap=list(
#'     c(name="heisenberg.pluginmap", url="http://eternalwondermaths.example.org/hsb"))
#' )

rk.XML.dependencies <- function(dependencies=NULL, package=NULL, pluginmap=NULL, hints=FALSE){
  ## package
  # - name
  # - min="min_version",
  # - max="max_version",
  # - repository
  # create example, if empty
  if(is.null(package)){
    if(isTRUE(hints)){
      xml.package.example <- XMLNode("package",
        attrs=list(
          name="CHANGE_ME_OR_DELETE_ME",
          "min_version"="CHANGE_ME_OR_DELETE_ME",
          "max_version"="CHANGE_ME_OR_DELETE_ME",
          repository="CHANGE_ME_OR_DELETE_ME"
        ))
      xml.package <- list(XMLNode("!--", xml.package.example))
    } else {
      xml.package <- list()
    }
  } else {
    xml.package <- sapply(package, function(this.package){
        pck.options <- names(this.package)
        if(!"name" %in% pck.options){
          stop(simpleError(
            paste0("Missing but mandatory information to define package dependencies:\n  \"name\"")
          ))
        } else {}
        pck.attributes <- list(name=this.package[["name"]])
        for (this.option in c("min", "max","repository" )){
          if(this.option %in% pck.options){
            pck.attributes[[this.option]] <- this.package[[this.option]]
          } else {}
        }
        result <- XMLNode("package", attrs=pck.attributes)
        return(result)
      })
  }

  ## pluginmap
  # - name,
  # - url
  # create example, if empty
  if(is.null(pluginmap)){
    if(isTRUE(hints)){
      xml.pluginmap.text <- XMLNode("", "If this plugin depends on other pluginmaps, edit this part to your needs:")
      xml.pluginmap.example <- XMLNode("pluginmap",
        attrs=list(
          name="CHANGE_ME_OR_DELETE_ME",
          url="CHANGE_ME_OR_DELETE_ME"
        ))
      xml.pluginmap <- list(XMLNode("!--", xml.pluginmap.text, xml.pluginmap.example))
    } else {
      xml.pluginmap <- list()
    }
  } else {
    xml.pluginmap <- sapply(pluginmap, function(this.pluginmap){
        plm.options <- names(this.pluginmap)
        # check for missing attributes
        mandatory.options <- c("name", "url")
        missing.options <- !mandatory.options %in% plm.options
        if(any(missing.options)){
          stop(simpleError(
            paste0("Missing but mandatory information to define pluginmap dependencies:\n  \"",
              paste0(mandatory.options[missing.options], collapse="\", \""), "\""
            )
          ))
        } else {}
        plm.attributes <- list(
          name=this.pluginmap[["name"]],
          url=this.pluginmap[["url"]]
        )
        if("min" %in% plm.options){
          plm.attributes[["min_version"]] <- this.pluginmap[["min"]]
        } else {}
        if("rkward.max" %in% plm.options){
          plm.attributes[["max_version"]] <- this.pluginmap[["max"]]
        } else {}
        result <- XMLNode("pluginmap", attrs=plm.attributes)
        return(result)
    })
  }

  ## dependencies
  # - rkward.min="rkward_min_version",
  # - rkward.max="rkward_max_version",
  # - R.min="R_min_version",
  # - R.max="R_max_version"
  # + package
  # + pluginmap
  for (pmap in xml.pluginmap){
    xml.package[[length(xml.package)+1]] <- pmap
  }
  # comment out an example dependency listing if it has no entries
  if(is.null(dependencies)){
    if(isTRUE(hints)){
      R.v <- R.Version()
      xml.dependencies <- XMLNode("dependencies",
        attrs=list(
          "rkward_min_version"=.rk.app.version,
          "rkward_max_version"="CHANGE_ME_OR_DELETE_ME",
          "R_min_version"=paste(R.v$major, R.v$minor, sep="."),
          "R_max_version"="CHANGE_ME_OR_DELETE_ME"
        ),
        .children=child.list(xml.package, empty=FALSE))
    } else {
      xml.dependencies <- XMLNode("dependencies", .children=child.list(xml.package, empty=FALSE))
    }
  } else {
    dep.options <- names(dependencies)
    dep.attributes <- list()
    if("rkward.min" %in% dep.options){
      dep.attributes[["rkward_min_version"]] <- dependencies[["rkward.min"]]
    } else {}
    if("rkward.max" %in% dep.options){
      dep.attributes[["rkward_max_version"]] <- dependencies[["rkward.max"]]
    } else {}
    if("R.min" %in% dep.options){
      dep.attributes[["R_min_version"]] <- dependencies[["R.min"]]
    } else {}
    if("R.max" %in% dep.options){
      dep.attributes[["R_max_version"]] <- dependencies[["R.max"]]
    } else {}
    xml.dependencies <- XMLNode("dependencies",
      attrs=dep.attributes,
      .children=child.list(xml.package, empty=FALSE))
  }

  return(xml.dependencies)
}
rkward-community/rkwarddev documentation built on May 9, 2022, 3:02 p.m.