A few tweaks in the tests and examples

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: AmigaFFH
 Type: Package
 Title: Commodore Amiga File Format Handler
-Version: 0.4.6
+Version: 0.4.7
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "pepijn.devries@outlook.com"))
 Author: Pepijn de Vries [aut, cre, dtc]

NEWS.md

@@ -1,4 +1,4 @@
-AmigaFFH v0.4.6
+AmigaFFH v0.4.7
 =============
 
  * Fixed broken `adfExplorer` dependency

R/generic_support.r

@@ -53,9 +53,7 @@ dither <- function(x, method, ...) {
 #' amigaRawToColour(as.raw(c(0xf0, 0xf0, 0xf0)), n.bytes = "3")
 #' 
 #' ## lower nybbles are ignored, you will get a warning when it is not zero:
-#' \donttest{
-#' amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
-#' }
+#' # amigaRawToColour(as.raw(c(0xf0, 0xf0, 0x0f)), n.bytes = "3")
 #' @family raw.operations
 #' @author Pepijn de Vries
 #' @export

R/iff.8svx.r

@@ -182,9 +182,7 @@ setMethod("play", "IFFChunk", function(object, player = NULL, ...) {
 #' ## You could also use a sine wave as input (although you will get some warnings).
 #' ## This will work because the vector of numeric data can be coerced to
 #' ## a WaveMC object
-#' \donttest{
-#'   sine.iff <- WaveToIFF(sin((0:2000)/20))
-#' }
+#' # sine.iff <- WaveToIFF(sin((0:2000)/20))
 #' @family iff.operations
 #' @references <https://en.wikipedia.org/wiki/8SVX>
 #' @author Pepijn de Vries

tests/testthat/test-examples.R

@@ -1 +1,2 @@
-test_examples()
+test_examples() |>
+  capture_output()