R/calendar-props.R

In toastui: Interactive Tables, Calendars and Charts for the Web

.add_calendar <- function(widget, calendar) {
  widget$x$options$calendars <- c(
    widget$x$options$calendars,
    list(calendar)
  )
  widget
}

#' @title Calendar properties
#'
#' @description Define calendar properties for grouping schedules under common theme.
#'
#' @param cal A [calendar()] object.
#' @param ... Either named arguments to use as calendar properties or a
#'  \code{data.frame} with rows as calendars and columns as properties.
#'  See \url{https://nhn.github.io/tui.calendar/latest/CalendarInfo/} for options.
#'
#' @export
#'
#' @return A `calendar` htmlwidget.
#'
#' @example examples/ex-cal_props.R
cal_props <- function(cal, ...) {
  check_cal(cal, "cal_props")
  args <- list(...)
  if (inherits(args[[1]], "data.frame")) {
    props <- rows_to_list(args[[1]])
    for (i in seq_along(props)) {
      cal <- .add_calendar(
        widget = cal,
        calendar = props[[i]]
      )
    }
    return(cal)
  } else if (inherits(args[[1]], "list")) {
    for (i in seq_along(args)) {
      cal <- .add_calendar(
        widget = cal,
        calendar = dropNulls(args[[i]])
      )
    }
    return(cal)
  } else {
    .add_calendar(
      widget = cal,
      calendar = dropNulls(args)
    )
  }
}