mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-22 13:00:23 +01:00
35 lines
976 B
R
35 lines
976 B
R
|
|
||
|
|
#' Plot a gt or gtsummary table as ggplot object
|
||
|
|
#'
|
||
|
|
#' Relying on `library(magick)` and `library(webshot2)`
|
||
|
|
#' @param x A 'gt' or 'gtsummary' table
|
||
|
|
#' @param ... Additional arguments to be passed to gt::gtsave
|
||
|
|
#'
|
||
|
|
#' @return gg/ggplot element
|
||
|
|
#' @export
|
||
|
|
#'
|
||
|
|
#' @references
|
||
|
|
#' Please refer
|
||
|
|
#' to [MSKCC-Epi-Bio/bstfun](https://github.com/MSKCC-Epi-Bio/bstfun)
|
||
|
|
#'
|
||
|
|
#' @importFrom magick image_read image_ggplot
|
||
|
|
#' @importFrom gtsummary as_gt tbl_summary
|
||
|
|
#' @importFrom gt gtsave
|
||
|
|
#'
|
||
|
|
#' @examples
|
||
|
|
#' #gt_plot(mtcars |> gtsummary::tbl_summary())
|
||
|
|
gt_plot <- function (x, ...)
|
||
|
|
{
|
||
|
|
if (!inherits(x, c("gt_tbl", "gtsummary")))
|
||
|
|
stop("`x=` must be a 'gt' or 'gtsummary' table", call. = FALSE)
|
||
|
|
|
||
|
|
if (inherits(x, "gtsummary"))
|
||
|
|
x <- gtsummary::as_gt(x)
|
||
|
|
path_gt_table_image <- tempfile(fileext = ".png")
|
||
|
|
gt_table_image <-
|
||
|
|
gt::gtsave(x, filename = path_gt_table_image, ...)
|
||
|
|
|
||
|
|
magick::image_read(path_gt_table_image) |>
|
||
|
|
magick::image_ggplot(interpolate = TRUE)
|
||
|
|
}
|
||
|
|
#'
|