Nothing
#' Set the style of the graph
#'
#' Sets the output style associated with the `foresplot`
#'
#' @inheritParams fp_insert_row
#' @inheritParams fpShapesGp
#' @inheritParams forestplot
#' @param txt_gp Set the fonts etc for all text elements. See [`fpTxtGp()`]
#' for details
#'
#' @return The foresplot object with the styles
#' @export
#'
#' @example inst/examples/fp_set_style_example.R
#' @rdname style_manipulation
#' @family graph modifiers
#' @family forestplot functions
fp_set_style <- function(x,
default = NULL,
box = NULL,
lines = NULL,
vertices = NULL,
summary = NULL,
zero = NULL,
axes = NULL,
hrz_lines = NULL,
grid = NULL,
txt_gp = NULL,
align = NULL) {
new_gp <- fpShapesGp(default = default,
box = box,
lines = lines,
vertices = vertices,
summary = summary,
zero = zero,
axes = axes,
hrz_lines = hrz_lines,
grid = grid)
for (n in names(x$shapes_gp)) {
if (!is.null(new_gp[[n]])) {
x$shapes_gp[[n]] <- new_gp[[n]]
}
}
if (!is.null(txt_gp)) {
x$txt_gp <- txt_gp
}
if (!is.null(align)) {
x$align <- prepAlign(align, graph.pos = x$graph.pos, nc = attr(x$labels, "no_cols"))
}
return(x)
}
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.