R/output_prerender.R

In rbokeh: R Interface for Bokeh

rbokeh_prerender <- function(fig) {

  fig$x$debug <- getOption("rbokeh_debug", FALSE)

  if (fig$x$modeltype %in% c("Plot", "GMapPlot")) {
    if (length(fig$x$spec$layers) == 0 && fig$x$spec$model$plot$type != "GMapPlot") {
      message("This figure is empty...")
      return(NULL)
    } else {
      fig <- prepare_figure(fig)
    }
  } else if (fig$x$modeltype == "GridPlot") {
    fig <- prepare_gridplot(fig)
  } else {
    stop("Unsupported model type: ", fig$x$modeltype)
  }

  # sapply(fig$x$spec$model, function(x) {
  #   # x$type
  #   x$id
  # })

  fig$x$docs_json[[1]]$roots$references <- fig$x$spec$model
  fig$x$docs_json[[1]]$roots$references <- remove_model_names(fig$x$docs_json[[1]]$roots$references)
  fig$x$spec <- NULL
  fig$preRenderHook <- NULL # nolint

  # attr(fig$x, "TOJSON_ARGS") <- list(auto_unbox = FALSE)

  ## we need to preserve "NaN" (which is NA in R) for bokeh to render properly
  # attr(fig$x, "TOJSON_ARGS") <- list(na = "string")
  ## actually this causes problems with categorical and date data
  ## so we'll handle it in the js prior to rendering

  fig
}