Compare 2acd12c ... +3 ... 414b1b5

#' Split a selected field from layout using a schema from another layout.

#'

#' @param lay a Layout object.

#'

#' @export

#' @rdname lay_split_field

#' @examples

#' 

#' l1 <- lay_new(matrix(c(1:4), ncol = 2), widths = c(4, 1))

#'

#' @export

#' 

#' @seealso lay_new lay_show

#' 

#' @examples

#' @param widths a vector of values for the relative heights of rows in mat.

#' @param heights a vector of values for the relative heights of rows in mat.

#' 

#' @export

#' @rdname lay_new

#' @examples

#' library(customLayout)

#' set.seed(123)

#' 

#' # Prepare layout

#' lay  <- lay_new(matrix(1:4, nc = 2),

#' pie(c(3, 2, 7), col = 2:4 + 3)

#' pie(c(5, 4, 2), col = 2:4 + 6)

#' 

lay_new <- function(mat, widths = NULL, heights = NULL)

{

#' @param layout object of class Layout.

#' 

#' @export

#' @rdname lay_set

#' @examples

#' 

}

#' 

#' @param widths a vector with relative widths used in combining 

#'                the x and y layouts.

#' @param addmax if true (default) the ids of the plots in the second 

#'               layout will be shifted by the number of plots in 

#'               the first layout.

#'

#' @rdname lay_bind_col

#' @export

#' @examples

#' lb = lay_bind_col(l1,l2)

#' lay_show(lb)

#' 

}

#' 

#' @param heights a vector with relative heights used in combining 

#'                the x and y layouts.

#' @param addmax if true (default) the ids of the plots in the second 

#'               layout will be shifted by the number of plots in 

#'               the first layout.

#' 

#' @rdname lay_bind_row

#' @export

#' @examples

#' l1 = lay_new(matrix(c(1:2),ncol = 2),widths=c(4,1))

}

#' Use Layout object with grid graphics.

#'

#' @param grobs list of grobs.

#' @param lay a Layout object.

#' @param ... other parameters passed to \code{\link{grid.arrange}}.

#'

#' @export

#' @rdname lay_grid

#' @examples

#'

#' @export

#' 

#' @seealso lay_new lay_show phl_layout

#' 

#' @examples

}

#' Create layout for the officer PowerPoint slide.

}

#'

#' @param x rpptx object

#' @param olay an OfficerLayout object created using \code{\link{phl_layout}}

#' @param id an single integer with an id of the placeholder from \code{olay} object.

#' @param value a ggplot object

#' @param ... other arguments passed to \code{\link{ph_with}}

#'

#' @export

#' @importFrom officer ph_location external_img ph_location_template ph_with

#' @importFrom rvg dml

  )

}

#'

#' @param x rpptx object

#' @param olay an OfficerLayout object created using \code{\link{phl_layout}}

#' @param ggobj ggplot objet to print. Argument code will be ignored if this argument is supplied.

#' @param ... other arguments passed to \code{\link{dml_pptx}}

#'

#' @export

#' 

phl_with_vg <- function(x, olay, id, code, ggobj = NULL, ...) {

}

#'

#' @param x rpptx object

#' @param olay an OfficerLayout object created using \code{\link{phl_layout}}

#' @param res The nominal resolution in ppi which will be recorded in the bitmap file. Default 300. See \code{res} parameter in \code{\link{png}}.

#' @param ... other arguments passed to \code{\link{png}} function.

#'

#' @export

#' 

phl_with_plot <- function(x, olay, id, plotFnc, res = 300, ...) {

#' @param str text to add.

#' @param type type of the text placeholder. See \code{\link{ph_add_text}} for more details.

#' @param ... other arguments passed to \code{\link{ph_add_text}}.

#' @export

#' @importFrom officer slide_summary

phl_with_text <- function(x, olay, id, str, type = "title", ...) {

#' @param id an single integer with an id of the placeholder from \code{olay} object.

#' @param value a data.frame

#' @param ... other arguments passed to \code{\link{ph_with}}

#' @export

#' 

phl_with_table <- function(x, olay, id, value, ...) {

}

#'

#' @param x rpptx object

#' @param olay an OfficerLayout object created using \code{\link{phl_layout}}.

#'    Possibly the result of the \code{\link{phl_adjust_table}}

#'

#' @export

#'

#' @examples

#' 

#'

#' @export

#' @rdname lay_show

#'

#' @examples

#'