R/netMetaForestplot.R

In leibniz-psychology/PsychOpen-CAMA-R-package: psychopencama.zpid.de

#' @title  netmeta forest plot
#' @description
#' Using the R package netmeta to to create and and return a forest plot for the given model and reference category
#' This indirect calling is needed since calling functions other than those from psychOpenCama package is blocked on the opencpu server for security reasons.
#' @param model
#' A netmeta model object
#' @param reference
#' A \code{string} representing the reference category that should be used. Here the reference is just needed for the ploting function.
#' @return returns a forest plot for a given netmeta model.
#' @author Robert Studtrucker
#' @importFrom netmeta forest.netmeta
#' @export



netMetaForestplot <- function(model,reference) {

 #some reasons why this code is how it is:
 #netmeta doesn't export the forest function. because of that and the fact that meta also has a forest function, referencing the correct one is a little bit difficult.
 #Using three colons netmeta:::forest.netmeta works, since it displays internal functions that are not exported; BUT normally you should avoid using those.

  #utils::getFromNamespace("forest.netmeta", "netmeta")
  #library(netmeta)

 netmeta:::forest.netmeta(model, ref = reference, sortvar = TE,col.square = "#0097c6")
}