Nothing
#' Sets spacing
#'
#' @description Sets spacing parameters for the Smallset Timeline.
#'
#' @param captions Positive numeric value for amount of caption space.
#' When alignment is horizontal, refers to the space below snapshots.
#' When alignment is vertical, refers to the space to the right of
#' the snapshots. Default is 2.5.
#' @param degree Integer between 0-90 (degrees) to rotate column names. Default is 0.
#' @param header Positive numeric value for amount of column name space. Default is 1.
#' @param right Positive numeric value (>=.5) for amount of space to the right
#' of each snapshot.
#' @param rows Integer for number of Smallset Timeline rows
#' (applicable when the alignment is horizontal). Default is 1.
#' @param columns Integer for number of Smallset Timeline columns
#' (applicable when the alignment is vertical). Default is 1.
#'
#' @details Passed to \code{spacing} in \link{Smallset_Timeline}.
#'
#' @return Returns a list with six elements (the spacing parameters).
#'
#' @examples
#' # increase space for captions and rotate column names
#' Smallset_Timeline(
#' data = s_data,
#' code = system.file("s_data_preprocess.R", package = "smallsets"),
#' spacing = sets_spacing(captions = 5, degree = 45)
#' )
#'
#' @export
sets_spacing <- function(captions = NULL,
degree = NULL,
header = NULL,
right = NULL,
rows = NULL,
columns = NULL) {
spacing <- list()
if (is.null(captions)) {
spacing$captions <- 2.5
} else {
spacing$captions <- captions
}
if (is.null(degree)) {
spacing$degree <- 0
} else {
spacing$degree <- degree
}
if (is.null(header)) {
spacing$header <- 1
} else {
spacing$header <- header
}
if (is.null(right)) {
spacing$right <- .5
} else {
if (right < .5) {
spacing$right <- .5
} else {
spacing$right <- right
}
}
if (is.null(rows)) {
spacing$rows <- 1
} else {
spacing$rows <- rows
}
if (is.null(columns)) {
spacing$columns <- 1
} else {
spacing$columns <- columns
}
return(spacing)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.