R/splot.R

In sigbertklinke/smvgraph: Visualization and Clustering of Data in a Shiny App

#' splot
#' 
#' Shiny app for choosing a specific plot.
#' 
#' @param data data.frame: input data
#' @param xvar character: selected variables (default: \code{character(0)})
#' @param path character: path where to read the plot modules (default: \code{NULL})
#'
#' @md
#' @return nothing
#' @importFrom shiny shinyOptions 
#' @export
#'
#' @examples
#' if (interactive()) splot(iris)
splot <- function(data, xvar=character(0), path=NULL) {
  #  main <- paste(deparse(substitute(data), 500), collapse = "\n")
  oldpar <- graphics::par(no.readonly = TRUE)
  on.exit(resetpar(oldpar))
  checkPackages(error=TRUE)
  shinyOptions(smvgraph.param=NULL)
  if (!missing(data)) {
    if (is.table(data) || stats::is.ts(data)) data <- toDataframe(data, paste(deparse(substitute(data), 500), collapse = "\n"))
    stopifnot(is.data.frame(data))
    if (!is.null(path)) path <- tools::file_path_as_absolute(path)
    shinyOptions(smvgraph.param=list(file=toRDS(data), xvar=xvar, plotmodule='', path=path))
  } 
  source(system.file("app", "app.R", package = "smvgraph"), local = TRUE, chdir = TRUE)$value
}