622 hide slides (#622)

[markheckmann]

Happy New Year, @davidgohel !

As requested in #622 by @laresbernardo, this PR adds the function slide_visible() (see examples below).

NB: Adding a visible arg to add_slide() will be part of another PR.

library(officer)

path <- system.file("doc_examples/example.pptx", package = "officer")
x <- read_pptx(path)

slide_visible(x) # get slide visibility
#> [1] TRUE TRUE TRUE

slide_visible(x, hide = 1:2) # hide slides 1 and 2
slide_visible(x)
#> [1] FALSE FALSE  TRUE

slide_visible(x, show = 1:2, hide = 3)
slide_visible(x)
#> [1]  TRUE  TRUE FALSE

slide_visible(x) <- FALSE # hide all slides
slide_visible(x)
#> [1] FALSE FALSE FALSE

slide_visible(x)[2] <- TRUE # set 2nd slide to visible
slide_visible(x)
#> [1] FALSE  TRUE FALSE

slide_visible(x)[c(1, 3)] <- TRUE
slide_visible(x)
#> [1] TRUE TRUE TRUE

^{Created on 2025-01-01 with reprex v2.0.2}

[codecov-commenter]

⚠️ Please install the to ensure uploads and comments are reliably processed by Codecov.

Codecov Report

All modified and coverable lines are covered by tests ✅

Project coverage is 86.10%. Comparing base (c79f2c0) to head (2366f23).
Report is 1 commits behind head on master.

❗ Your organization needs to install the Codecov GitHub app to enable full functionality.

Additional details and impacted files

@@            Coverage Diff             @@
##           master     #631      +/-   ##
==========================================
+ Coverage   85.90%   86.10%   +0.20%     
==========================================
  Files          43       43              
  Lines        6967     7032      +65     
==========================================
+ Hits         5985     6055      +70     
+ Misses        982      977       -5     

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

[laresbernardo]

This is exactly what I needed. Thanks for this amazing work on hiding/showing slides @markheckmann Happy New Year!

[davidgohel]

thank you @markheckmann ! (and happy new year)