From d50cdd3a59d43d7d42b788dd899a07a0905da7b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tim=20Sch=C3=A4fer?= <ts+code@rcmd.org>
Date: Tue, 25 May 2021 16:16:08 +0200
Subject: [PATCH] disable another test requiring internet access on CRAN

---
 R/gifti_writer.R    | 2 ++
 man/gifti_writer.Rd | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/R/gifti_writer.R b/R/gifti_writer.R
index 863f3cc..34b4b77 100644
--- a/R/gifti_writer.R
+++ b/R/gifti_writer.R
@@ -254,9 +254,11 @@ gifti_xml_write <- function(filepath, xmltree, options=c('as_xml', 'format')) {
 #' @references \url{https://www.nitrc.org/frs/download.php/2871/GIFTI_Surface_Format.pdf}
 #'
 #' @examples
+#' \dontrun{
 #'   outfile = tempfile(fileext = '.gii');
 #'   dataarrays = list(rep(3.1, 3L), matrix(seq(6), nrow=2L));
 #'   gifti_writer(outfile, dataarrays, datatype=c('NIFTI_TYPE_FLOAT32', 'NIFTI_TYPE_INT32'));
+#' }
 #'
 #' @export
 gifti_writer <- function(filepath, ...) {
diff --git a/man/gifti_writer.Rd b/man/gifti_writer.Rd
index f8c4f76..5b482ed 100644
--- a/man/gifti_writer.Rd
+++ b/man/gifti_writer.Rd
@@ -15,9 +15,11 @@ gifti_writer(filepath, ...)
 Write data to a gifti file.
 }
 \examples{
+\dontrun{
   outfile = tempfile(fileext = '.gii');
   dataarrays = list(rep(3.1, 3L), matrix(seq(6), nrow=2L));
   gifti_writer(outfile, dataarrays, datatype=c('NIFTI_TYPE_FLOAT32', 'NIFTI_TYPE_INT32'));
+}
 
 }
 \references{