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{