127 compare header and schema

[PietrH]

No description provided.

[PietrH]

check_schema() fails on case mismatch between schema and data. To replicate:

# create package with the wrong case in the schema of observations
  wrong_case_in_schema_pkg <- example_package
  ## change case
  purrr::pluck(wrong_case_in_schema_pkg, "resources", 2, "schema", "fields") <-
    purrr::chuck(wrong_case_in_schema_pkg, "resources", 2, "schema", "fields") %>%
    purrr::map2_chr(
      c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE), #set some to upper, some to lower case
      ~ ifelse(.y,
        toupper(purrr::chuck(.x, "name")),
        tolower(purrr::chuck(.x, "name"))
      )
    )
read_resource(wrong_case_in_schema_pkg, "observations")

Fails on:

frictionless-r/R/check_schema.R

Lines 19 to 20 in 7dba18d

	# Check fields have names
	field_names <- purrr::map_chr(fields, ~ replace_null(.x$name, NA_character_))

Error in `purrr::map_chr()` at frictionless-r/R/check_schema.R:20:2:
ℹ In index: 1.
Caused by error in `.x$name`:
! $ operator is invalid for atomic vectors
Run `rlang::last_trace()` to see where the error occurred.