Do not require internet connection for example_package

[peterdesmet]

example_package currently has a remote $directory:

> library(frictionless)
> example_package$directory
[1] "https://raw.githubusercontent.com/frictionlessdata/frictionless-r/main/inst/extdata"

That means an internet connection is need to read resources. This was by design for some tests, but should probably be altered so more tests can run without an internet connection.

frictionless-r/R/data.R

Lines 16 to 21 in b6d3308

	#' # Note that it must be created using a URL, otherwise all Data Resource paths
	#' # will point to local paths that won't work for other users.
	#' # One can load locally using:
	#' # read_package(
	#' # system.file("extdata", "datapackage.json", package = "frictionless")
	#' # )

Need to investigate first what tests would fail (on GitHub CI) if the directory is local.

[peterdesmet]

• I think the better solution is to create a function example_package().

This allows to clearly differentiate between remote and local (default).

#' @export
example_package <- function(remote = FALSE) {
  if (remote) {
    path <- file.path(
      "https://raw.githubusercontent.com/frictionlessdata/frictionless-r",
      "main/inst/extdata/datapackage.json"
    )
  } else {
    path <- system.file("extdata", "datapackage.json", package = "frictionless")
  }
  read_package(path)
}

• The rda file can be removed