R/limitSizeGraph.R

In rte-antares-rpackage/bpN: Antares Visualizations

#' Use to change limit size of graph (in Mb)
#' 
#' @param size \code{numeric} widget size autorized in modules (default 200)
#' @examples 
#' \dontrun{
#' limitSizeGraph(500)
#' }
#' 
#' @export
limitSizeGraph <- function(size){
  options(antaresVizSizeGraph = size)
}

# @importFrom pryr object_size
controlWidgetSize <- function(widget, language = "en"){
  if(is.null(getOption("antaresVizSizeGraph"))){
    options(antaresVizSizeGraph = 200)
  }
  
  # round(as.numeric(pryr::object_size(widget)) / 1048000, 1)
  if(round(as.numeric(object.size(widget)) / 1048000, 1) > getOption("antaresVizSizeGraph")){
    return(
      combineWidgets(
        switch(language, 
               "fr" = antaresVizSizeGraphError_fr,
               antaresVizSizeGraphError)
      )
    )
  } else {
    widget
  }
}