Merge pull request #188 from frictionlessdata/tabular-data-package

Don't set `"profile"="tabular-data-package"` and remove it from example dataset

Author: peterdesmet

R/create_package.R

@@ -8,8 +8,6 @@
 #' - [`resources`](
 #'   https://specs.frictionlessdata.io/data-package/#required-properties) (an
 #'   empty list) if not present.
-#' - [`profile`](https://specs.frictionlessdata.io/data-package/#profile) (set
-#'   to `"tabular-data-package"`) if not present.
 #' - `directory` (set to `"."` for the current directory) if not present.
 #'   It is used as the base path to access resources with [read_resource()].
 #'
@@ -33,7 +31,6 @@ create_package <- function(descriptor = NULL) {
   }
 
   # Add properties
-  descriptor$profile <- replace_null(descriptor$profile, "tabular-data-package")
   descriptor$resources <- replace_null(descriptor$resources, list())
   descriptor$directory <- replace_null(descriptor$directory, ".") # Current dir
 

data/example_package.rda

@@ -2,7 +2,6 @@
   "name": "example_package",
   "id": "115f49c1-8603-463e-a908-68de98327266",
   "created": "2021-03-02T17:22:33Z",
-  "profile": "tabular-data-package",
   "licenses": [
     {
       "name": "CC0-1.0",

inst/extdata/datapackage.json

@@ -13,15 +13,6 @@ test_that("create_package() returns error on invalid descriptor", {
   )
 })
 
-test_that("create_package() sets profile to 'tabular-data-package' if not
-           provided", {
-  new <- create_package()
-  expect_identical(new$profile, "tabular-data-package")
-
-  existing <- create_package(list(profile = "not_default"))
-  expect_identical(existing$profile, "not_default")
-})
-
 test_that("create_package() sets resources if not provided", {
   new <- create_package()
   expect_identical(new$resources, list())