R/details.R

In cadenceinc/FlextableExtended: Flextable Wrapper

#' Move Cursor to current slide
#'
#' @param slide powerpoint slide
#'
#' @return powerpoint slide
#' @export
#'
move_to_current_slide <- function(slide) {
  slide$cursor  <-  slide$slide$length()
  slide
}

#' Get Layout Details
#'
#' @param slide powerpoint slide
#' @param layout character
#' @param master character
#'
#' @return data.frame
#' @export
#'
get_layout_details <- function(slide, layout, master = "Office Theme") {
  sd <- officer::layout_properties(slide, layout, master)
  sd[, c("type", "id", "ph_label")]
}

#' Define Flextable Col-Key from Position
#'
#' @param flex flextable
#' @param x numeric
#'
#' @return flextable
#' @export
#'
flex_define_col_keys <- function(flex, position) {
  flex$col_keys[position]
}

#' Get Flextable Height
#'
#' @param flex flextable
#'
#' @return numeric
#' @export
#'
flex_height <- function(flex) {
  dims <- flextable::flextable_dim(flex)
  dims$height
}

#' Get Flextable Width
#'
#' @param flex flextable
#'
#' @return flextable
#' @export
#'
flex_width <- function(flex) {
  dims <- flextable::flextable_dim(flex)
  dims$widths
}