R/style.R

In krisrs1128/treelapse: Visualization for Tree-Structured Collections of Counts and Series

#! /usr/bin/env Rscript

## File description -------------------------------------------------------------
## Functions for adapting display in treelapse views.


#' Merge in default display for timebox trees / treeboxes
#'
#' Completes a partially filled list of display options.
#'
#' @export
merge_timebox_display <- function(opts) {
  default_opts <- list(
    "size_min" = 1,
    "size_max" = 10,
    "mouseover_font_size" = 15,
    "axis_font_size" = 13,
    "font_family" = "Roboto",
    "n_ticks_x" = 4,
    "n_ticks_y" = 4,
    "x_axis_rotation" = 0,
    "y_axis_rotation" = 0,
    "axis_text_anchor" = "middle",
    "tick_size" = 6,
    "scent_frac" = list(
      "width" = 0.15,
      "height" = 0.2
    ),
    "margin" = list(
      "bottom" = 30,
      "top" = 20,
      "ts_right" = 30,
      "ts_left" = 30,
      "tree_right" = 15,
      "tree_left" = 15
    ),
    "col_background" = "#F7F7F7",
    "tree" = list(
      "frac" = 0.43,
      "col_unselected" = "#CDCDCD",
      "col_selected" = "#2D869F",
      "col_search" = "#C2571A",
      "layout" = "id"
    ),
    "ts" = list(
      "col_unselected" = "#696969",
      "col_selected" = "#2D869F",
      "col_search" = "#C2571A",
      "width_unselected" = 1,
      "width_selected" = 2,
      "width_search" = 3,
      "opacity_unselected" = 0.1,
      "opacity_selected" = 0.9,
      "opacity_search" = 1,
      "max_depth" = Inf,
      "min_depth" = 0,
      "leaves_only" = FALSE
    )
  )
  modifyList(default_opts, opts)
}

#' Merge in default display for doi tree / sankey
#'
#' Completes a partially filled list of display options.
#'
#' @export
merge_doi_display <- function(opts) {
  default_opts <- list(
    "size_min" = 0,
    "size_max" = 20,
    "leaf_width" = 10,
    "leaf_height" = 100,
    "focus_font_size" = 20,
    "font_size" = 10,
    "text_offset" = 0.5,
    "text_display_neighbors" = 1,
    "transition_duration" = 1000
  )
  modifyList(default_opts, opts)
}