fix: Exports S3 methods, silence roxygen warnings

Roxygen throws warnings. Export of s3 methods required. See discussion here: r-lib/roxygen2#1592

Author: markheckmann

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: officer
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.6.7.011
+Version: 0.6.7.012
 Authors@R: c(
     person("David", "Gohel", , "[email protected]", role = c("aut", "cre")),
     person("Stefan", "Moog", , "[email protected]", role = "aut"),

NAMESPACE

@@ -1,7 +1,14 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("[",core_properties)
+S3method("[",custom_properties)
+S3method("[<-",core_properties)
+S3method("[<-",custom_properties)
 S3method(as.character,fp_tab)
 S3method(as.character,fp_tabs)
+S3method(as.character,officer_cursor)
+S3method(as.data.frame,external_img)
+S3method(as.data.frame,fpar)
 S3method(as.matrix,rpptx)
 S3method(body_add,block_caption)
 S3method(body_add,block_list)
@@ -18,6 +25,7 @@ S3method(body_add,numeric)
 S3method(body_add,plot_instr)
 S3method(body_add,run_columnbreak)
 S3method(body_add,run_pagebreak)
+S3method(dim,external_img)
 S3method(format,fp_cell)
 S3method(format,fp_par)
 S3method(format,fp_text)
@@ -31,6 +39,8 @@ S3method(fortify_location,location_type)
 S3method(length,rdocx)
 S3method(length,rpptx)
 S3method(length,rxlsx)
+S3method(ph_from_location,location_label)
+S3method(ph_from_location,location_type)
 S3method(ph_with,block_list)
 S3method(ph_with,character)
 S3method(ph_with,data.frame)

R/core_properties.R

@@ -51,6 +51,8 @@ default_cp_tags <- list(
   category = list(ns = "cp", attrs = NA_character_)
 )
 
+
+#' @export
 `[<-.core_properties` <- function( x, i, j, value ){
   if( !i %in% x$data[,"name"] ) {
     attrs <- ifelse(is.na(default_cp_tags[[i]]$attrs), "", paste0(" ", default_cp_tags[[i]]$attrs))
@@ -61,10 +63,14 @@ default_cp_tags <- list(
   }
   x
 }
+
+
+#' @export
 `[.core_properties` <- function( x, i, j ){
   x$data[i,j]
 }
 
+
 write_core_properties <- function(core_matrix, package_dir){
   ns_ <- core_matrix$ns
   core_matrix <- core_matrix$data

R/custom_properties.R

@@ -36,6 +36,8 @@ read_custom_properties <- function(package_dir) {
   z
 }
 
+
+#' @export
 `[<-.custom_properties` <- function(x, i, j, value) {
   if (!i %in% x$data[, "name"]) {
     if (nrow(x$data) < 1) {
@@ -50,6 +52,9 @@ read_custom_properties <- function(package_dir) {
   }
   x
 }
+
+
+#' @export
 `[.custom_properties` <- function(x, i, j) {
   if (nrow(x$data) < 1) {
     return(character())

R/docx_cursor.R

@@ -207,6 +207,9 @@ officer_cursor <- function(node) {
   class(x) <- "officer_cursor"
   x
 }
+
+
+#' @export
 as.character.officer_cursor <- function(x, ...) {
   if (length(x$nodes_names) < 1) {
     return(NA_character_)

R/ooxml_block_objects.R

@@ -886,6 +886,7 @@ fortify_fpar <- function(x){
 }
 
 
+#' @export
 as.data.frame.fpar <- function( x, ...){
   chks <- fortify_fpar(x)
   chks <- chks[sapply(chks, function(x) inherits(x, "ftext"))]
@@ -897,6 +898,7 @@ as.data.frame.fpar <- function( x, ...){
   rbind_match_columns(chks)
 }
 
+
 #' @export
 to_wml.fpar <- function(x, add_ns = FALSE, style_id = NULL, ...) {
 

R/ooxml_run_objects.R

@@ -1050,11 +1050,15 @@ external_img <- function(src, width = .5, height = .2, unit = "in", guess_size =
   src
 }
 
+
+#' @export
 dim.external_img <- function(x) {
   x <- attr(x, "dims")
   data.frame(width = x$width, height = x$height)
 }
 
+
+#' @export
 as.data.frame.external_img <- function(x, ...) {
   dimx <- attr(x, "dims")
   data.frame(path = as.character(x), width = dimx$width, height = dimx$height, alt = attr(x, "alt"), stringsAsFactors = FALSE)

R/ppt_notes.R

@@ -143,6 +143,7 @@ ph_from_location <- function(loc, doc, ...){
 }
 
 
+#' @export
 ph_from_location.location_label <- function(loc, doc, ...) {
   xfrm <- doc$notesMaster$xfrm()
   location <- xfrm[xfrm$ph_label == loc$ph_label, ]
@@ -155,6 +156,7 @@ ph_from_location.location_label <- function(loc, doc, ...) {
 }
 
 
+#' @export
 ph_from_location.location_type <- function(loc, doc, ...) {
   xfrm <- doc$notesMaster$xfrm()
   location <- xfrm[xfrm$type == loc$type, ]