R/utilitiesGraphs.R

In icesSAG: Stock Assessment Graphs Database Web Services

get_plot_path <- function(assessmentKey, type = 1, ...) {
    # call webservice for all supplied keys
    old_value <- sag_use_token(TRUE)
    out <-
      sapply(
        assessmentKey,
        function(i) {
          ices_get(
            sag_api("get_plot_path", assessmentKey = i, sgKey = type), ...
          )
        }
      )
    sag_use_token(old_value)

  out
}

get_image_internal <- function(paths, ...) {

  # call webservice for all supplied keys
  old_value <- sag_use_token(TRUE)
  out <- lapply(paths, ices_get, ...)
  sag_use_token(old_value)

  # set class
  class(out) <- c("ices_standardgraph_list", class(out))

  # return
  out
}

#' @export
plot.ices_standardgraph_list <- function(x, y = NULL, ...) {
  # clear the page
  grid::grid.newpage()

  if (length(x) == 1) {
    grid::grid.raster(x[[1]])
  } else {
    # find best plot layout (stolen from Simon Wood!)
    n.plots <- length(x)
    c <- r <- trunc(sqrt(n.plots))
    if (c < 1) r <- c <- 1
    if (c * r < n.plots) c <- c + 1
    if (c * r < n.plots) r <- r + 1

    # calculate x and y locations for plots -
    # plot like a table: from top to bottom and left to right
    x_loc <- rep((1:r) / r - 1 / (2 * r), c)
    y_loc <- rep((c:1) / c - 1 / (2 * c), each = r)
    for (i in seq_along(x)) {
      if (!is.null(x[[i]])) {
        grid::grid.raster(x[[i]], x = x_loc[i], y = y_loc[i], width = 1 / r, height = 1 / c)
      }
    }
  }
}

#' @export
print.ices_standardgraph_list <- function(x, y = NULL, ...) {
  plot.ices_standardgraph_list(x, y = NULL, ...)
}