Add comments

frictionlessdata · Jul 18, 2024 · c2ffe3a · c2ffe3a
1 parent 4c0d011
commit c2ffe3a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/R/col_types.R b/R/col_types.R
@@ -7,7 +7,10 @@
 #' @family parse functions
 #' @noRd
 cols <- function(schema) {
+  # Check schema
   check_schema(schema)
+
+  # Get fields
   fields <- schema$fields
   field_names <- purrr::map_chr(fields, ~ purrr::pluck(.x, "name"))
 

diff --git a/R/locale.R b/R/locale.R
@@ -8,7 +8,10 @@
 #' @family parse functions
 #' @noRd
 locale <- function(package, resource_name) {
+  # Get resource, includes check_package()
   resource <- get_resource(package, resource_name)
+
+  # Get fields
   schema <- get_schema(package, resource_name)
   fields <- schema$fields