From ca8af06eb1000f65407c61474e150b96334bf142 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 11:59:00 +0100
Subject: [PATCH 01/17] skip read_package remote tests if offline

See #115
---
 tests/testthat/test-read_package.R | 98 +++++++++++++++++-------------
 1 file changed, 56 insertions(+), 42 deletions(-)

diff --git a/tests/testthat/test-read_package.R b/tests/testthat/test-read_package.R
index b87b60fc..db8a32a2 100644
--- a/tests/testthat/test-read_package.R
+++ b/tests/testthat/test-read_package.R
@@ -1,30 +1,41 @@
-test_that("read_package() returns a valid Data Package, whether reading path or
-           url", {
-  # Load example package (locally and remotely) and a valid minimal one
-  p_path <- system.file("extdata", "datapackage.json", package = "frictionless")
-  p_url <- file.path("https://raw.githubusercontent.com/frictionlessdata/",
-                       "frictionless-r/main/inst/extdata/datapackage.json")
-  minimal_path <- test_path("data/valid_minimal.json")
-  p_local <- suppressMessages(read_package(p_path))
-  p_remote <- suppressMessages(read_package(p_url))
-  p_minimal <- suppressMessages(read_package(minimal_path))
-
-  # Returns a list with required properties
-  expect_true(check_package(p_local))
-  expect_true(check_package(p_remote))
-  expect_true(check_package(p_minimal))
-
-  # Package has correct resources
-  resource_names <- c("deployments", "observations", "media")
-  expect_identical(resources(p_local), resource_names)
-  expect_identical(resources(p_remote), resource_names)
-  expect_identical(resources(p_minimal), resource_names)
-
-  # Package has correct "directory", containing root dir of datapackage.json
-  expect_identical(p_local$directory, gsub("/datapackage.json", "", p_path))
-  expect_identical(p_remote$directory, gsub("/datapackage.json", "", p_url))
-  expect_identical(p_minimal$directory, "data")
-})
+test_that("read_package() returns a valid Data Package reading path", {
+             # Load example package locally and a valid minimal one
+             p_path <- system.file("extdata", "datapackage.json", package = "frictionless")
+             minimal_path <- test_path("data/valid_minimal.json")
+             p_local <- suppressMessages(read_package(p_path))
+             p_minimal <- suppressMessages(read_package(minimal_path))
+
+             # Returns a list with required properties
+             expect_true(check_package(p_local))
+             expect_true(check_package(p_minimal))
+
+             # Package has correct resources
+             resource_names <- c("deployments", "observations", "media")
+             expect_identical(resources(p_local), resource_names)
+             expect_identical(resources(p_minimal), resource_names)
+
+             # Package has correct "directory", containing root dir of datapackage.json
+             expect_identical(p_local$directory, gsub("/datapackage.json", "", p_path))
+             expect_identical(p_minimal$directory, "data")
+           })
+
+test_that("read_package() returns a valid Data Package reading url", {
+             testthat::skip_if_offline()
+             # Load example package remotely
+             p_url <- file.path("https://raw.githubusercontent.com/frictionlessdata/",
+                                "frictionless-r/main/inst/extdata/datapackage.json")
+             p_remote <- suppressMessages(read_package(p_url))
+
+             # Returns a list with required properties
+             expect_true(check_package(p_remote))
+
+             # Package has correct resources
+             resource_names <- c("deployments", "observations", "media")
+             expect_identical(resources(p_remote), resource_names)
+
+             # Package has correct "directory", containing root dir of datapackage.json
+             expect_identical(p_remote$directory, gsub("/datapackage.json", "", p_url))
+           })
 
 test_that("read_package() shows message about usage norms", {
   # Load example package and a minimal valid one a URL in "id"
@@ -62,17 +73,12 @@ test_that("read_package() returns error on missing file and properties", {
     fixed = TRUE
   )
 
-  # No file
+  # No file locally
   expect_error(
     read_package("nofile.json"),
     "Can't find file at `nofile.json`",
     fixed = TRUE
   )
-  expect_error(
-    read_package("http://example.com/nofile.json"),
-    "Can't find file at `http://example.com/nofile.json`.",
-    fixed = TRUE
-  )
 
   # Not a json file
   expect_error(
@@ -111,19 +117,27 @@ test_that("read_package() returns error on missing file and properties", {
     ),
     fixed = TRUE
   )
+
+  # No file remotely
+  testthat::skip_if_offline()
+  expect_error(
+    read_package("http://example.com/nofile.json"),
+    "Can't find file at `http://example.com/nofile.json`.",
+    fixed = TRUE
+  )
 })
 
 test_that("read_package() allows descriptor at absolute or relative parent
            path", {
-  relative_path <- "../testthat/data/valid_minimal.json"
-  expect_true(
-    check_package(suppressMessages(read_package(relative_path)))
-  )
-  absolute_path <- normalizePath("data/valid_minimal.json")
-  expect_true(
-    check_package(suppressMessages(read_package(absolute_path)))
-  )
-})
+             relative_path <- "../testthat/data/valid_minimal.json"
+             expect_true(
+               check_package(suppressMessages(read_package(relative_path)))
+             )
+             absolute_path <- normalizePath("data/valid_minimal.json")
+             expect_true(
+               check_package(suppressMessages(read_package(absolute_path)))
+             )
+           })
 
 test_that("read_package() allows YAML descriptor", {
   expect_true(

From 3b3d9a27f3b7ae084ca41f35a193c054bce09f51 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:08:58 +0100
Subject: [PATCH 02/17] Skip tests with example_package if offline

See #115
---
 tests/testthat/test-add_resource.R | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index 2730d67f..304b9995 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -85,6 +85,7 @@ test_that("add_resource() returns error on invalid or empty data frame", {
 })
 
 test_that("add_resource() returns error if CSV file cannot be found", {
+  testthat::skip_if_offline()
   p <- example_package
   df_csv <- test_path("data/df.csv")
   schema <- create_schema(data.frame("col_1" = c(1, 2), "col_2" = c("a", "b")))
@@ -98,11 +99,6 @@ test_that("add_resource() returns error if CSV file cannot be found", {
     "Can't find file at `no_such_file.csv`.",
     fixed = TRUE
   )
-  expect_error(
-    add_resource(p, "new", "http://example.com/no_such_file.csv"),
-    "Can't find file at `http://example.com/no_such_file.csv`.",
-    fixed = TRUE
-  )
   expect_error(
     add_resource(p, "new", c(df_csv, "no_such_file.csv")),
     "Can't find file at `no_such_file.csv`.",
@@ -118,9 +114,16 @@ test_that("add_resource() returns error if CSV file cannot be found", {
     "Can't find file at `no_such_file_1.csv`.",
     fixed = TRUE
   )
+  testthat::skip_if_offline()
+  expect_error(
+    add_resource(p, "new", "http://example.com/no_such_file.csv"),
+    "Can't find file at `http://example.com/no_such_file.csv`.",
+    fixed = TRUE
+  )
 })
 
 test_that("add_resource() returns error on mismatching schema and data", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -155,6 +158,7 @@ test_that("add_resource() returns error on mismatching schema and data", {
 })
 
 test_that("add_resource() adds resource", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -183,6 +187,7 @@ test_that("add_resource() adds resource", {
 })
 
 test_that("add_resource() uses provided schema (list or path) or creates one", {
+  testthat::skip_if_offline()
   p <- create_package()
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -218,6 +223,7 @@ test_that("add_resource() uses provided schema (list or path) or creates one", {
 
 test_that("add_resource() can add resource from data frame, readable by
            read_resource()", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
@@ -226,6 +232,7 @@ test_that("add_resource() can add resource from data frame, readable by
 
 test_that("add_resource() can add resource from local, relative, absolute,
            remote or compressed CSV file, readable by read_resource()", {
+  testthat::skip_if_offline()
   p <- example_package
   schema <- get_schema(p, "deployments")
 
@@ -249,7 +256,14 @@ test_that("add_resource() can add resource from local, relative, absolute,
   expect_identical(p$resources[[6]]$path, absolute_path)
   expect_s3_class(read_resource(p, "absolute"), "tbl")
 
+  # Compressed
+  compressed_file <- test_path("data/deployments.csv.gz")
+  p <- add_resource(p, "compressed", compressed_file, schema)
+  expect_identical(p$resources[[8]]$path, compressed_file)
+  expect_s3_class(read_resource(p, "compressed"), "tbl")
+
   # Remote
+  testthat::skip_if_offline()
   remote_path <- file.path(
     "https://github.com/frictionlessdata/frictionless-r",
     "raw/main/inst/extdata/deployments.csv"
@@ -257,12 +271,6 @@ test_that("add_resource() can add resource from local, relative, absolute,
   p <- add_resource(p, "remote", remote_path, schema)
   expect_identical(p$resources[[7]]$path, remote_path)
   expect_s3_class(read_resource(p, "remote"), "tbl")
-
-  # Compressed
-  compressed_file <- test_path("data/deployments.csv.gz")
-  p <- add_resource(p, "compressed", compressed_file, schema)
-  expect_identical(p$resources[[8]]$path, compressed_file)
-  expect_s3_class(read_resource(p, "compressed"), "tbl")
 })
 
 test_that("add_resource() can add resource from CSV file with other delimiter,

From 5ef5b65a6c92ba8727cf84b0e4f41f36fcdc47b7 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:11:03 +0100
Subject: [PATCH 03/17] Skip if offline and example_package is used

Changes in check package
---
 tests/testthat/test-check_package.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/testthat/test-check_package.R b/tests/testthat/test-check_package.R
index 2d4bfbc4..d134dff8 100644
--- a/tests/testthat/test-check_package.R
+++ b/tests/testthat/test-check_package.R
@@ -1,4 +1,5 @@
 test_that("check_package() returns TRUE on valid Data Package", {
+  testthat::skip_if_offline()
   expect_true(check_package(example_package))
 })
 
@@ -33,6 +34,7 @@ test_that("check_package() returns error on incorrect Data Package", {
 })
 
 test_that("check_package() returns error if resources have no name", {
+  testthat::skip_if_offline()
   p <- example_package
   p$resources[[2]]$name <- NULL
   expect_error(

From 708d640a7d3b5e7d53200b2d9256c870af62787a Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:12:50 +0100
Subject: [PATCH 04/17] Skip check schema if offline using example_package

See #115
---
 tests/testthat/test-check_schema.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/testthat/test-check_schema.R b/tests/testthat/test-check_schema.R
index 2d5933b1..99cf7f5a 100644
--- a/tests/testthat/test-check_schema.R
+++ b/tests/testthat/test-check_schema.R
@@ -1,4 +1,5 @@
 test_that("check_schema() returns TRUE on valid Table Schema", {
+  testthat::skip_if_offline()
   p <- example_package
   # Can't obtain df using read_resource(), because that function uses
   # check_schema() (in get_schema()) internally, which is what we want to test

From d388a2ff59062d59868f13979a0006c5ff710a9b Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:17:11 +0100
Subject: [PATCH 05/17] Skip read resources tests if offline

See #115
---
 tests/testthat/test-read_resource.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/testthat/test-read_resource.R b/tests/testthat/test-read_resource.R
index 9cb53697..a9e48626 100644
--- a/tests/testthat/test-read_resource.R
+++ b/tests/testthat/test-read_resource.R
@@ -1,4 +1,5 @@
 test_that("read_resource() returns a tibble", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
@@ -20,6 +21,7 @@ test_that("read_resource() returns error on incorrect Data Package", {
 })
 
 test_that("read_resource() returns error on incorrect resource", {
+  testthat::skip_if_offline()
   p <- example_package
 
   # No such resource
@@ -155,6 +157,7 @@ test_that("read_resource() returns error on incorrect resource", {
 })
 
 test_that("read_resource() can read newly added data (ignoring schema)", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
@@ -162,6 +165,7 @@ test_that("read_resource() can read newly added data (ignoring schema)", {
 })
 
 test_that("read_resource() can read inline data (ignoring schema)", {
+  testthat::skip_if_offline()
   p <- example_package
   expected_resource <- readr::read_csv(
     test_path("data/media.csv"),
@@ -178,6 +182,7 @@ test_that("read_resource() can read inline data (ignoring schema)", {
 })
 
 test_that("read_resource() can read local files", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments") # local resource, remote package
 
@@ -188,6 +193,7 @@ test_that("read_resource() can read local files", {
 })
 
 test_that("read_resource() can read remote files", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments") # local resource, remote package
 
@@ -201,6 +207,7 @@ test_that("read_resource() can read remote files", {
 
 test_that("read_resource() can read safe local and remote Table Schema,
            including YAML", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
   p$directory <- "."
@@ -255,6 +262,7 @@ test_that("read_resource() can read safe local and remote Table Schema,
 })
 
 test_that("read_resource() can read safe local and remote CSV dialect", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
   p$directory <- "."
@@ -307,6 +315,7 @@ test_that("read_resource() can read safe local and remote CSV dialect", {
 })
 
 test_that("read_resource() understands CSV dialect", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
 
@@ -336,6 +345,7 @@ test_that("read_resource() understands CSV dialect", {
 })
 
 test_that("read_resource() understands missing values", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
 
@@ -350,6 +360,7 @@ test_that("read_resource() understands missing values", {
 })
 
 test_that("read_resource() understands encoding", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
 
@@ -438,6 +449,7 @@ test_that("read_resource() handles LF and CRLF line terminator characters", {
   #
   # read_delim() however only handles 2 line terminator characters (LF and CRLF)
   # without explicitly indicating them, so dialect$lineTerminator is ignored
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments") # This file has LF
 
@@ -449,6 +461,7 @@ test_that("read_resource() handles LF and CRLF line terminator characters", {
 })
 
 test_that("read_resource() can read compressed files", {
+  testthat::skip_if_offline()
   p <- example_package
   resource <- read_resource(p, "deployments")
 

From b50c636e61a570b03753d1bc519f192956dcf14a Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:18:22 +0100
Subject: [PATCH 06/17] SKip remove resources tests if offline

See #115
---
 tests/testthat/test-remove_resource.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/testthat/test-remove_resource.R b/tests/testthat/test-remove_resource.R
index 3c573d16..ef248fce 100644
--- a/tests/testthat/test-remove_resource.R
+++ b/tests/testthat/test-remove_resource.R
@@ -1,4 +1,5 @@
 test_that("remove_resource() returns a valid Data Package", {
+  testthat::skip_if_offline()
   p <- example_package
   expect_true(check_package(remove_resource(p, "deployments")))
 })
@@ -15,6 +16,7 @@ test_that("remove_resource() returns error on incorrect Data Package", {
 })
 
 test_that("remove_resource() returns error when resource not found", {
+  testthat::skip_if_offline()
   p <- example_package
   expect_error(
     remove_resource(p, "no_such_resource"),
@@ -27,6 +29,7 @@ test_that("remove_resource() returns error when resource not found", {
 })
 
 test_that("remove_resource() removes resource", {
+  testthat::skip_if_offline()
   p <- example_package
 
   # Remove "deployments", keep "observations" and "media

From 6b256dbaeaad96dc2c583c3bf15dedb51aab2e7d Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:19:25 +0100
Subject: [PATCH 07/17] Skip resources tests if offline

See #115
---
 tests/testthat/test-resources.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/testthat/test-resources.R b/tests/testthat/test-resources.R
index 9dee387f..249d5292 100644
--- a/tests/testthat/test-resources.R
+++ b/tests/testthat/test-resources.R
@@ -1,4 +1,5 @@
 test_that("resources() returns a character vector of resource names", {
+  testthat::skip_if_offline()
   p <- example_package
   expect_identical(resources(p), c("deployments", "observations", "media"))
 
@@ -13,6 +14,7 @@ test_that("resources() returns a character vector of resource names", {
 })
 
 test_that("resources() returns error if resources have no name", {
+  testthat::skip_if_offline()
   p <- example_package
   p$resources[[2]]$name <- NULL
   expect_error(

From afe20a2b81a45cedcb41151c06939cc35182e26c Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 12:42:52 +0100
Subject: [PATCH 08/17] Skip write_package tests if offline

---
 tests/testthat/test-write_package.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tests/testthat/test-write_package.R b/tests/testthat/test-write_package.R
index f7bab285..bf723a99 100644
--- a/tests/testthat/test-write_package.R
+++ b/tests/testthat/test-write_package.R
@@ -1,4 +1,5 @@
 test_that("write_package() returns output Data Package (invisibly)", {
+  testthat::skip_if_offline()
   p <- example_package
   # Note write_package() is expected to create directory without warning
   dir <- file.path(tempdir(), "package")
@@ -40,6 +41,7 @@ test_that("write_package() returns error if Data Package has no resource(s)", {
 })
 
 test_that("write_package() writes unaltered datapackage.json as is", {
+  testthat::skip_if_offline()
   p_file <- system.file("extdata", "datapackage.json", package = "frictionless")
   json_original <- readr::read_lines(p_file) # Will use line endings of system
 
@@ -55,6 +57,7 @@ test_that("write_package() writes unaltered datapackage.json as is", {
 })
 
 test_that("write_package() does not overwrite existing data files", {
+  testthat::skip_if_offline()
   p <- suppressMessages(read_package(
     system.file("extdata", "datapackage.json", package = "frictionless")
   ))
@@ -80,6 +83,7 @@ test_that("write_package() does not overwrite existing data files", {
 })
 
 test_that("write_package() copies file(s) for path = local in local package", {
+  testthat::skip_if_offline()
   p <- suppressMessages(read_package(
     system.file("extdata", "datapackage.json", package = "frictionless")
   ))
@@ -108,6 +112,7 @@ test_that("write_package() copies file(s) for path = local in local package", {
 
 test_that("write_package() downloads file(s) for path = local in remote
            package", {
+  testthat::skip_if_offline()
   p <- example_package
   p$resources[[2]]$path[[2]] <- "observations_2.csv" # Make one URL a local path
   p <- add_resource(p, "new", test_path("data/df.csv"))
@@ -133,6 +138,7 @@ test_that("write_package() downloads file(s) for path = local in remote
 })
 
 test_that("write_package() leaves as is for path = URL in local package", {
+  testthat::skip_if_offline()
   p <- suppressMessages(read_package(
     system.file("extdata", "datapackage.json", package = "frictionless")
   ))
@@ -155,6 +161,7 @@ test_that("write_package() leaves as is for path = URL in local package", {
 })
 
 test_that("write_package() leaves as is for path = URL in remote package", {
+  testthat::skip_if_offline()
   p <- example_package
   p <- add_resource(p, "new", file.path(
     "https://raw.githubusercontent.com/frictionlessdata/frictionless-r",
@@ -175,6 +182,7 @@ test_that("write_package() leaves as is for path = URL in remote package", {
 })
 
 test_that("write_package() leaves as is for data = json in local package", {
+  testthat::skip_if_offline()
   p <- suppressMessages(read_package(
     system.file("extdata", "datapackage.json", package = "frictionless")
   ))
@@ -190,6 +198,7 @@ test_that("write_package() leaves as is for data = json in local package", {
 })
 
 test_that("write_package() leaves as is for data = json in remote package", {
+  testthat::skip_if_offline()
   p <- example_package
   dir <- file.path(tempdir(), "package")
   on.exit(unlink(dir, recursive = TRUE))
@@ -203,6 +212,7 @@ test_that("write_package() leaves as is for data = json in remote package", {
 })
 
 test_that("write_package() creates file for data = df in local package", {
+  testthat::skip_if_offline()
   p <- suppressMessages(read_package(
     system.file("extdata", "datapackage.json", package = "frictionless")
   ))
@@ -221,6 +231,7 @@ test_that("write_package() creates file for data = df in local package", {
 })
 
 test_that("write_package() creates file for data = df in remote package", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
@@ -237,6 +248,7 @@ test_that("write_package() creates file for data = df in remote package", {
 })
 
 test_that("write_package() shows message when downloading file", {
+  testthat::skip_if_offline()
   p <- example_package
   dir <- file.path(tempdir(), "package")
   on.exit(unlink(dir, recursive = TRUE))
@@ -251,6 +263,7 @@ test_that("write_package() shows message when downloading file", {
 })
 
 test_that("write_package() sets correct properties for data frame resources", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   schema <- create_schema(df)
@@ -280,6 +293,7 @@ test_that("write_package() sets correct properties for data frame resources", {
 })
 
 test_that("write_package() will gzip file for compress = TRUE", {
+  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)

From b9f83edd84276a43e2a2db462fe88c805cc5b780 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 16:34:23 +0100
Subject: [PATCH 09/17] Convert R snippets to code chunks where needed

Work on #113 for vignette
---
 vignettes/frictionless.Rmd | 77 ++++++++++++++++++++++++++++++++------
 1 file changed, 66 insertions(+), 11 deletions(-)

diff --git a/vignettes/frictionless.Rmd b/vignettes/frictionless.Rmd
index 34c0ef01..fdf87adc 100644
--- a/vignettes/frictionless.Rmd
+++ b/vignettes/frictionless.Rmd
@@ -32,38 +32,91 @@ library(frictionless)
 
 To read a Data Package, you need to know the path or URL to its descriptor file, named `datapackage.json`. That file describes the Data Package, provides access points to its Data Resources and can contain dataset-level metadata. Let's read a Data Package descriptor file published on [Zenodo](https://doi.org/10.5281/zenodo.5879096):
 
-```{r}
+``` r
 package <- read_package("https://zenodo.org/record/5879096/files/datapackage.json")
+#> Please make sure you have the right to access data from this Data Package for your intended use.
+#> Follow applicable norms or requirements to credit the dataset and its authors.
+#> For more information, see https://doi.org/10.5281/zenodo.5879096
 ```
 
 `read_package()` returns the content of `datapackage.json` as a list, printed here with `str()` to improve readability:
 
-```{r}
+```r
 str(package, list.len = 3)
+#> List of 4
+#>  $ id       : chr "https://doi.org/10.5281/zenodo.5879096"
+#>  $ profile  : chr "tabular-data-package"
+#>  $ resources:List of 3
+#>   ..$ :List of 7
+#>   .. ..$ name     : chr "reference-data"
+#>   .. ..$ path     : chr "O_WESTERSCHELDE-reference-data.csv"
+#>   .. ..$ profile  : chr "tabular-data-resource"
+#>   .. .. [list output truncated]
+#>   ..$ :List of 7
+#>   .. ..$ name     : chr "gps"
+#>   .. ..$ path     : chr [1:3] "O_WESTERSCHELDE-gps-2018.csv.gz" "O_WESTERSCHELDE-gps-2019.csv.gz" "O_WESTERSCHELDE-gps-2020.csv.gz"
+#>   .. ..$ profile  : chr "tabular-data-resource"
+#>   .. .. [list output truncated]
+#>   ..$ :List of 7
+#>   .. ..$ name     : chr "acceleration"
+#>   .. ..$ path     : chr [1:3] "O_WESTERSCHELDE-acceleration-2018.csv.gz" "O_WESTERSCHELDE-acceleration-2019.csv.gz" "O_WESTERSCHELDE-acceleration-2020.csv.gz"
+#>   .. ..$ profile  : chr "tabular-data-resource"
+#>   .. .. [list output truncated]
+#>   [list output truncated]
 ```
 
 The most important aspect of a Data Package are its **Data Resources**, which describe and point to the data. You can list all included resources with `resources()`:
 
-```{r}
+```r
 resources(package)
+#> [1] "reference-data" "gps"            "acceleration"
 ```
 
 This Data Package has 3 resources. Let's read the data from the `gps` resource into a data frame:
 
-```{r}
+```r
 gps <- read_resource(package, "gps")
 gps
+#> # A tibble: 73,047 × 21
+#>    event-i…¹ visible timestamp           locat…² locat…³ bar:b…⁴ exter…⁵ gps:d…⁶
+#>        <dbl> <lgl>   <dttm>                <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
+#>  1   1.43e10 TRUE    2018-05-25 16:11:37    4.25    51.3      NA    32.5     2  
+#>  2   1.43e10 TRUE    2018-05-25 16:16:41    4.25    51.3      NA    32.8     2.1
+#>  3   1.43e10 TRUE    2018-05-25 16:21:29    4.25    51.3      NA    34.1     2.1
+#>  4   1.43e10 TRUE    2018-05-25 16:26:28    4.25    51.3      NA    34.5     2.2
+#>  5   1.43e10 TRUE    2018-05-25 16:31:21    4.25    51.3      NA    34.1     2.2
+#>  6   1.43e10 TRUE    2018-05-25 16:36:09    4.25    51.3      NA    32.5     2.2
+#>  7   1.43e10 TRUE    2018-05-25 16:40:57    4.25    51.3      NA    32.1     2.2
+#>  8   1.43e10 TRUE    2018-05-25 16:45:55    4.25    51.3      NA    33.3     2.1
+#>  9   1.43e10 TRUE    2018-05-25 16:50:49    4.25    51.3      NA    32.6     2.1
+#> 10   1.43e10 TRUE    2018-05-25 16:55:36    4.25    51.3      NA    31.7     2  
+#> # … with 73,037 more rows, 13 more variables: `gps:satellite-count` <dbl>,
+#> #   `gps-time-to-fix` <dbl>, `ground-speed` <dbl>, heading <dbl>,
+#> #   `height-above-msl` <dbl>, `location-error-numerical` <dbl>,
+#> #   `manually-marked-outlier` <lgl>, `vertical-error-numerical` <dbl>,
+#> #   `sensor-type` <chr>, `individual-taxon-canonical-name` <chr>,
+#> #   `tag-local-identifier` <chr>, `individual-local-identifier` <chr>,
+#> #   `study-name` <chr>, and abbreviated variable names ¹​`event-id`, …
 ```
 
 The data frame contains all GPS records, even though the actual data were split over [multiple CSV zipped files](https://zenodo.org/record/5879096#files). `read_resource()` assigned the column names and types based on the Table Schema that was defined for that resource, not the headers of the CSV file.
 
 You can also read data from a local (e.g. downloaded) Data Package. In fact, there is one included in the frictionless pkg, let's read that one from disk:
 
-```{r}
+```r
 local_package <- read_package(
   system.file("extdata", "datapackage.json", package = "frictionless")
 )
+#> Please make sure you have the right to access data from this Data Package for your intended use.
+#> Follow applicable norms or requirements to credit the dataset and its authors.
 read_resource(local_package, "media")
+#> # A tibble: 3 × 5
+#>   media_id                             deployment_id observati…¹ times…² file_…³
+#>   <chr>                                <chr>         <chr>       <chr>   <chr>  
+#> 1 aed5fa71-3ed4-4284-a6ba-3550d1a4de8d 1             1-1         2020-0… https:…
+#> 2 da81a501-8236-4cbd-aa95-4bc4b10a05df 1             1-1         2020-0… https:…
+#> 3 0ba57608-3cf1-49d6-a5a2-fe680851024d 1             1-1         2020-0… https:…
+#> # … with abbreviated variable names ¹​observation_id, ²​timestamp, ³​file_path
 ```
 
 Data from the `media` was not stored in a CSV file, but directly in the `data` property of that resource in `datapackage.json`. `read_resource()` will automatically detect where to read data from.
@@ -159,9 +212,9 @@ my_package <-
   )
 ```
 
-If you already have your data stored as CSV files and you want to include them _as is_ as a Data Resource, you can do so as well. As with data frames, you can opt to create a Table Schema automatically or provide your own.
+If you already have your data stored as CSV files and you want to include them *as is* as a Data Resource, you can do so as well. As with data frames, you can opt to create a Table Schema automatically or provide your own.
 
-```{r}
+```r
 # Two CSV files with the same structure
 path_1 <- system.file("extdata", "observations_1.csv", package = "frictionless")
 path_2 <- system.file("extdata", "observations_2.csv", package = "frictionless")
@@ -192,8 +245,10 @@ write_package(my_package, "my_directory")
 
 The directory will contain four files: the descriptor `datapackage.json`, one CSV file containing the data for the resource `iris` and two CSV files containing the data for the resource `observations`.
 
-```{r}
+```r
 list.files("my_directory")
+#> [1] "datapackage.json"   "iris.csv"           "observations_1.csv"
+#> [4] "observations_2.csv"
 ```
 
 ```{r, include = FALSE}
@@ -202,6 +257,6 @@ unlink("my_directory", recursive = TRUE)
 
 The frictionless pkg does not provide functionality to deposit your Data Package on a research repository such as [Zenodo](https://zenodo.org), but here are some tips:
 
-1. Validate your Data Package before depositing. You can do this in Python with the [Frictionless Framework](https://github.com/frictionlessdata/framework) using `frictionless validate datapackage.json`.
-2. Zip the individual CSV files (and update their paths in `datapackage.json`) to reduce size, not the entire Data Package. That way, users still have direct access to the `datapackage.json` file. See [this example](https://zenodo.org/record/5061303#files).
-3. Only describe the technical aspects of your dataset in `datapackage.json` (fields, units, the dataset identifier in `id`). Authors, methodology, license, etc. are better described in the metadata fields the research repository provides.
+1.  Validate your Data Package before depositing. You can do this in Python with the [Frictionless Framework](https://github.com/frictionlessdata/framework) using `frictionless validate datapackage.json`.
+2.  Zip the individual CSV files (and update their paths in `datapackage.json`) to reduce size, not the entire Data Package. That way, users still have direct access to the `datapackage.json` file. See [this example](https://zenodo.org/record/5061303#files).
+3.  Only describe the technical aspects of your dataset in `datapackage.json` (fields, units, the dataset identifier in `id`). Authors, methodology, license, etc. are better described in the metadata fields the research repository provides.

From f9e30ca03cda60266c51eb489a67d6de941e67e9 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 16:50:42 +0100
Subject: [PATCH 10/17] Remove unneeded skip if offline

It's already present at the begin of the test
---
 tests/testthat/test-add_resource.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index 304b9995..91a2c420 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -263,7 +263,6 @@ test_that("add_resource() can add resource from local, relative, absolute,
   expect_s3_class(read_resource(p, "compressed"), "tbl")
 
   # Remote
-  testthat::skip_if_offline()
   remote_path <- file.path(
     "https://github.com/frictionlessdata/frictionless-r",
     "raw/main/inst/extdata/deployments.csv"

From 22f8a25054b735a5e3d8481c878ea7ccb73023a7 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 16:51:57 +0100
Subject: [PATCH 11/17] Set order back

---
 tests/testthat/test-add_resource.R | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index 91a2c420..c063b93c 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -256,12 +256,6 @@ test_that("add_resource() can add resource from local, relative, absolute,
   expect_identical(p$resources[[6]]$path, absolute_path)
   expect_s3_class(read_resource(p, "absolute"), "tbl")
 
-  # Compressed
-  compressed_file <- test_path("data/deployments.csv.gz")
-  p <- add_resource(p, "compressed", compressed_file, schema)
-  expect_identical(p$resources[[8]]$path, compressed_file)
-  expect_s3_class(read_resource(p, "compressed"), "tbl")
-
   # Remote
   remote_path <- file.path(
     "https://github.com/frictionlessdata/frictionless-r",
@@ -270,6 +264,13 @@ test_that("add_resource() can add resource from local, relative, absolute,
   p <- add_resource(p, "remote", remote_path, schema)
   expect_identical(p$resources[[7]]$path, remote_path)
   expect_s3_class(read_resource(p, "remote"), "tbl")
+
+  # Compressed
+  compressed_file <- test_path("data/deployments.csv.gz")
+  p <- add_resource(p, "compressed", compressed_file, schema)
+  expect_identical(p$resources[[8]]$path, compressed_file)
+  expect_s3_class(read_resource(p, "compressed"), "tbl")
+
 })
 
 test_that("add_resource() can add resource from CSV file with other delimiter,

From d4a5e6e5bcdca76090869c5ecf0f52bc96d7404f Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 16:52:33 +0100
Subject: [PATCH 12/17] Remove empty line

---
 tests/testthat/test-add_resource.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index c063b93c..6ac33f60 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -270,7 +270,6 @@ test_that("add_resource() can add resource from local, relative, absolute,
   p <- add_resource(p, "compressed", compressed_file, schema)
   expect_identical(p$resources[[8]]$path, compressed_file)
   expect_s3_class(read_resource(p, "compressed"), "tbl")
-
 })
 
 test_that("add_resource() can add resource from CSV file with other delimiter,

From 53161afe7a14630777d9b75afe562d6f01d8762b Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 9 Nov 2022 16:53:58 +0100
Subject: [PATCH 13/17] Fix styling

---
 tests/testthat/test-read_package.R | 64 +++++++++++++++---------------
 1 file changed, 32 insertions(+), 32 deletions(-)

diff --git a/tests/testthat/test-read_package.R b/tests/testthat/test-read_package.R
index db8a32a2..9c882e45 100644
--- a/tests/testthat/test-read_package.R
+++ b/tests/testthat/test-read_package.R
@@ -1,41 +1,41 @@
 test_that("read_package() returns a valid Data Package reading path", {
-             # Load example package locally and a valid minimal one
-             p_path <- system.file("extdata", "datapackage.json", package = "frictionless")
-             minimal_path <- test_path("data/valid_minimal.json")
-             p_local <- suppressMessages(read_package(p_path))
-             p_minimal <- suppressMessages(read_package(minimal_path))
-
-             # Returns a list with required properties
-             expect_true(check_package(p_local))
-             expect_true(check_package(p_minimal))
-
-             # Package has correct resources
-             resource_names <- c("deployments", "observations", "media")
-             expect_identical(resources(p_local), resource_names)
-             expect_identical(resources(p_minimal), resource_names)
-
-             # Package has correct "directory", containing root dir of datapackage.json
-             expect_identical(p_local$directory, gsub("/datapackage.json", "", p_path))
-             expect_identical(p_minimal$directory, "data")
-           })
+  # Load example package locally and a valid minimal one
+  p_path <- system.file("extdata", "datapackage.json", package = "frictionless")
+  minimal_path <- test_path("data/valid_minimal.json")
+  p_local <- suppressMessages(read_package(p_path))
+  p_minimal <- suppressMessages(read_package(minimal_path))
+
+  # Returns a list with required properties
+  expect_true(check_package(p_local))
+  expect_true(check_package(p_minimal))
+
+  # Package has correct resources
+  resource_names <- c("deployments", "observations", "media")
+  expect_identical(resources(p_local), resource_names)
+  expect_identical(resources(p_minimal), resource_names)
+
+  # Package has correct "directory", containing root dir of datapackage.json
+  expect_identical(p_local$directory, gsub("/datapackage.json", "", p_path))
+  expect_identical(p_minimal$directory, "data")
+})
 
 test_that("read_package() returns a valid Data Package reading url", {
-             testthat::skip_if_offline()
-             # Load example package remotely
-             p_url <- file.path("https://raw.githubusercontent.com/frictionlessdata/",
-                                "frictionless-r/main/inst/extdata/datapackage.json")
-             p_remote <- suppressMessages(read_package(p_url))
+  testthat::skip_if_offline()
+  # Load example package remotely
+  p_url <- file.path("https://raw.githubusercontent.com/frictionlessdata/",
+                     "frictionless-r/main/inst/extdata/datapackage.json")
+  p_remote <- suppressMessages(read_package(p_url))
 
-             # Returns a list with required properties
-             expect_true(check_package(p_remote))
+  # Returns a list with required properties
+  expect_true(check_package(p_remote))
 
-             # Package has correct resources
-             resource_names <- c("deployments", "observations", "media")
-             expect_identical(resources(p_remote), resource_names)
+  # Package has correct resources
+  resource_names <- c("deployments", "observations", "media")
+  expect_identical(resources(p_remote), resource_names)
 
-             # Package has correct "directory", containing root dir of datapackage.json
-             expect_identical(p_remote$directory, gsub("/datapackage.json", "", p_url))
-           })
+  # Package has correct "directory", containing root dir of datapackage.json
+  expect_identical(p_remote$directory, gsub("/datapackage.json", "", p_url))
+})
 
 test_that("read_package() shows message about usage norms", {
   # Load example package and a minimal valid one a URL in "id"

From 74de9c90aff02a4be208d2ed696d76aa3df0bb06 Mon Sep 17 00:00:00 2001
From: Damiano Oldoni <damiano.oldoni@inbo.be>
Date: Wed, 16 Nov 2022 20:34:14 +0100
Subject: [PATCH 14/17] remove duplicate skip_if_offline()

---
 tests/testthat/test-add_resource.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index 6ac33f60..23b1f624 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -114,7 +114,6 @@ test_that("add_resource() returns error if CSV file cannot be found", {
     "Can't find file at `no_such_file_1.csv`.",
     fixed = TRUE
   )
-  testthat::skip_if_offline()
   expect_error(
     add_resource(p, "new", "http://example.com/no_such_file.csv"),
     "Can't find file at `http://example.com/no_such_file.csv`.",

From a406be1035eb49af74b3ddff08a0e65741cd7f01 Mon Sep 17 00:00:00 2001
From: peterdesmet <peter.desmet@inbo.be>
Date: Wed, 16 Nov 2022 20:37:36 +0100
Subject: [PATCH 15/17] Remove some skip_if_online()

I tested all the tests without an internet connection and removed the testthat::skip_if_offline() where the test still passed without it
---
 tests/testthat/test-add_resource.R  | 5 -----
 tests/testthat/test-check_package.R | 2 --
 tests/testthat/test-read_package.R  | 2 +-
 tests/testthat/test-read_resource.R | 2 --
 tests/testthat/test-resources.R     | 1 -
 5 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/tests/testthat/test-add_resource.R b/tests/testthat/test-add_resource.R
index 6ac33f60..c1085eb6 100644
--- a/tests/testthat/test-add_resource.R
+++ b/tests/testthat/test-add_resource.R
@@ -114,7 +114,6 @@ test_that("add_resource() returns error if CSV file cannot be found", {
     "Can't find file at `no_such_file_1.csv`.",
     fixed = TRUE
   )
-  testthat::skip_if_offline()
   expect_error(
     add_resource(p, "new", "http://example.com/no_such_file.csv"),
     "Can't find file at `http://example.com/no_such_file.csv`.",
@@ -123,7 +122,6 @@ test_that("add_resource() returns error if CSV file cannot be found", {
 })
 
 test_that("add_resource() returns error on mismatching schema and data", {
-  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -158,7 +156,6 @@ test_that("add_resource() returns error on mismatching schema and data", {
 })
 
 test_that("add_resource() adds resource", {
-  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -187,7 +184,6 @@ test_that("add_resource() adds resource", {
 })
 
 test_that("add_resource() uses provided schema (list or path) or creates one", {
-  testthat::skip_if_offline()
   p <- create_package()
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   df_csv <- test_path("data/df.csv")
@@ -223,7 +219,6 @@ test_that("add_resource() uses provided schema (list or path) or creates one", {
 
 test_that("add_resource() can add resource from data frame, readable by
            read_resource()", {
-  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
diff --git a/tests/testthat/test-check_package.R b/tests/testthat/test-check_package.R
index d134dff8..2d4bfbc4 100644
--- a/tests/testthat/test-check_package.R
+++ b/tests/testthat/test-check_package.R
@@ -1,5 +1,4 @@
 test_that("check_package() returns TRUE on valid Data Package", {
-  testthat::skip_if_offline()
   expect_true(check_package(example_package))
 })
 
@@ -34,7 +33,6 @@ test_that("check_package() returns error on incorrect Data Package", {
 })
 
 test_that("check_package() returns error if resources have no name", {
-  testthat::skip_if_offline()
   p <- example_package
   p$resources[[2]]$name <- NULL
   expect_error(
diff --git a/tests/testthat/test-read_package.R b/tests/testthat/test-read_package.R
index 9c882e45..58f69968 100644
--- a/tests/testthat/test-read_package.R
+++ b/tests/testthat/test-read_package.R
@@ -66,6 +66,7 @@ test_that("read_package() shows message about usage norms", {
 })
 
 test_that("read_package() returns error on missing file and properties", {
+  testthat::skip_if_offline()
   # Incorrect type
   expect_error(
     read_package(list()),
@@ -119,7 +120,6 @@ test_that("read_package() returns error on missing file and properties", {
   )
 
   # No file remotely
-  testthat::skip_if_offline()
   expect_error(
     read_package("http://example.com/nofile.json"),
     "Can't find file at `http://example.com/nofile.json`.",
diff --git a/tests/testthat/test-read_resource.R b/tests/testthat/test-read_resource.R
index a9e48626..dd8a94f4 100644
--- a/tests/testthat/test-read_resource.R
+++ b/tests/testthat/test-read_resource.R
@@ -157,7 +157,6 @@ test_that("read_resource() returns error on incorrect resource", {
 })
 
 test_that("read_resource() can read newly added data (ignoring schema)", {
-  testthat::skip_if_offline()
   p <- example_package
   df <- data.frame("col_1" = c(1, 2), "col_2" = c("a", "b"))
   p <- add_resource(p, "new", df)
@@ -165,7 +164,6 @@ test_that("read_resource() can read newly added data (ignoring schema)", {
 })
 
 test_that("read_resource() can read inline data (ignoring schema)", {
-  testthat::skip_if_offline()
   p <- example_package
   expected_resource <- readr::read_csv(
     test_path("data/media.csv"),
diff --git a/tests/testthat/test-resources.R b/tests/testthat/test-resources.R
index 249d5292..482752f6 100644
--- a/tests/testthat/test-resources.R
+++ b/tests/testthat/test-resources.R
@@ -14,7 +14,6 @@ test_that("resources() returns a character vector of resource names", {
 })
 
 test_that("resources() returns error if resources have no name", {
-  testthat::skip_if_offline()
   p <- example_package
   p$resources[[2]]$name <- NULL
   expect_error(

From efb3468ffbfb8855493763c4f6617155749c6d32 Mon Sep 17 00:00:00 2001
From: peterdesmet <peter.desmet@inbo.be>
Date: Wed, 16 Nov 2022 20:44:14 +0100
Subject: [PATCH 16/17] Clear up some whitespace issues

---
 tests/testthat/test-read_package.R | 22 +++++++++++-----------
 vignettes/frictionless.Rmd         |  8 ++++----
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/tests/testthat/test-read_package.R b/tests/testthat/test-read_package.R
index 58f69968..fac845cb 100644
--- a/tests/testthat/test-read_package.R
+++ b/tests/testthat/test-read_package.R
@@ -1,4 +1,4 @@
-test_that("read_package() returns a valid Data Package reading path", {
+test_that("read_package() returns a valid Data Package reading from path", {
   # Load example package locally and a valid minimal one
   p_path <- system.file("extdata", "datapackage.json", package = "frictionless")
   minimal_path <- test_path("data/valid_minimal.json")
@@ -19,7 +19,7 @@ test_that("read_package() returns a valid Data Package reading path", {
   expect_identical(p_minimal$directory, "data")
 })
 
-test_that("read_package() returns a valid Data Package reading url", {
+test_that("read_package() returns a valid Data Package reading from url", {
   testthat::skip_if_offline()
   # Load example package remotely
   p_url <- file.path("https://raw.githubusercontent.com/frictionlessdata/",
@@ -129,15 +129,15 @@ test_that("read_package() returns error on missing file and properties", {
 
 test_that("read_package() allows descriptor at absolute or relative parent
            path", {
-             relative_path <- "../testthat/data/valid_minimal.json"
-             expect_true(
-               check_package(suppressMessages(read_package(relative_path)))
-             )
-             absolute_path <- normalizePath("data/valid_minimal.json")
-             expect_true(
-               check_package(suppressMessages(read_package(absolute_path)))
-             )
-           })
+  relative_path <- "../testthat/data/valid_minimal.json"
+  expect_true(
+    check_package(suppressMessages(read_package(relative_path)))
+  )
+  absolute_path <- normalizePath("data/valid_minimal.json")
+  expect_true(
+    check_package(suppressMessages(read_package(absolute_path)))
+  )
+})
 
 test_that("read_package() allows YAML descriptor", {
   expect_true(
diff --git a/vignettes/frictionless.Rmd b/vignettes/frictionless.Rmd
index fdf87adc..86e5bd65 100644
--- a/vignettes/frictionless.Rmd
+++ b/vignettes/frictionless.Rmd
@@ -212,7 +212,7 @@ my_package <-
   )
 ```
 
-If you already have your data stored as CSV files and you want to include them *as is* as a Data Resource, you can do so as well. As with data frames, you can opt to create a Table Schema automatically or provide your own.
+If you already have your data stored as CSV files and you want to include them _as is_ as a Data Resource, you can do so as well. As with data frames, you can opt to create a Table Schema automatically or provide your own.
 
 ```r
 # Two CSV files with the same structure
@@ -257,6 +257,6 @@ unlink("my_directory", recursive = TRUE)
 
 The frictionless pkg does not provide functionality to deposit your Data Package on a research repository such as [Zenodo](https://zenodo.org), but here are some tips:
 
-1.  Validate your Data Package before depositing. You can do this in Python with the [Frictionless Framework](https://github.com/frictionlessdata/framework) using `frictionless validate datapackage.json`.
-2.  Zip the individual CSV files (and update their paths in `datapackage.json`) to reduce size, not the entire Data Package. That way, users still have direct access to the `datapackage.json` file. See [this example](https://zenodo.org/record/5061303#files).
-3.  Only describe the technical aspects of your dataset in `datapackage.json` (fields, units, the dataset identifier in `id`). Authors, methodology, license, etc. are better described in the metadata fields the research repository provides.
+1. Validate your Data Package before depositing. You can do this in Python with the [Frictionless Framework](https://github.com/frictionlessdata/framework) using `frictionless validate datapackage.json`.
+2. Zip the individual CSV files (and update their paths in `datapackage.json`) to reduce size, not the entire Data Package. That way, users still have direct access to the `datapackage.json` file. See [this example](https://zenodo.org/record/5061303#files).
+3. Only describe the technical aspects of your dataset in `datapackage.json` (fields, units, the dataset identifier in `id`). Authors, methodology, license, etc. are better described in the metadata fields the research repository provides.

From 0ca101b4757ae8820fdb74bbfcb35e306ee154fb Mon Sep 17 00:00:00 2001
From: peterdesmet <peter.desmet@inbo.be>
Date: Wed, 16 Nov 2022 20:55:02 +0100
Subject: [PATCH 17/17] Bump version and update news

I kept CRAN in relatedLink and provider in codemeta.json
---
 .zenodo.json  | 4 ++--
 DESCRIPTION   | 2 +-
 NEWS.md       | 5 +++++
 codemeta.json | 6 +++---
 4 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/.zenodo.json b/.zenodo.json
index dae93275..25cf6378 100644
--- a/.zenodo.json
+++ b/.zenodo.json
@@ -1,6 +1,6 @@
 {
   "title": "frictionless: Read and Write Frictionless Data Packages",
-  "version": "1.0.0",
+  "version": "1.0.2",
   "description": "Read and write Frictionless Data Packages. A 'Data Package' (<https://specs.frictionlessdata.io/data-package/>) is a simple container format and standard to describe and package a collection of (tabular) data. It is typically used to publish FAIR (<https://www.go-fair.org/fair-principles/>) and open datasets.",
   "creators": [
     {
@@ -14,7 +14,7 @@
   ],
   "upload_type": "software",
   "access_right": "open",
-  "license": "MIT",
+  "license": "MIT + file LICENSE",
   "communities": [
     {
       "identifier": "inbo"
diff --git a/DESCRIPTION b/DESCRIPTION
index 4da864ed..ad145a40 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: frictionless
 Title: Read and Write Frictionless Data Packages
-Version: 1.0.1.9000
+Version: 1.0.2
 Authors@R: c(
     person("Peter", "Desmet", email = "peter.desmet.work@gmail.com",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0002-8442-8025")),
diff --git a/NEWS.md b/NEWS.md
index 709421a9..1e8b4dce 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,10 @@
 # frictionless (development version)
 
+# frictionless 1.0.2
+
+- Add `testthat::skip_if_offline()` to selected tests and verbosely include 
+  output in vignette examples, to avoid CRAN errors caused by timeouts (#116).
+
 # frictionless 1.0.1
 
 - Rebuild documentation for compatibility with HTML5 on request of CRAN.
diff --git a/codemeta.json b/codemeta.json
index e53c29a7..daad538a 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/frictionlessdata/frictionless-r",
   "issueTracker": "https://github.com/frictionlessdata/frictionless-r/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "1.0.1",
+  "version": "1.0.2",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -226,7 +226,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "178.01KB",
+  "fileSize": "183.204KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",
@@ -250,7 +250,7 @@
       "name": "Read and Write Frictionless Data Packages",
       "identifier": "10.5281/zenodo.5815355",
       "url": "https://cran.r-project.org/package=frictionless",
-      "description": "R package version 1.0.1",
+      "description": "R package version 1.0.2",
       "@id": "https://doi.org/10.5281/zenodo.5815355",
       "sameAs": "https://doi.org/10.5281/zenodo.5815355"
     }