setting group on top level attributes

mustberuss · mustberuss · commit acaa797487ab · 2024-12-09T21:01:18.000-06:00
diff --git a/data-raw/fieldsdf.R b/data-raw/fieldsdf.R
@@ -92,7 +92,7 @@ extract_relevant_schema_info <- function(schema_elements) {
             endpoint = lookup[[schema_element]],
             field = x,
             data_type = data_type,
-            group = "",
+            group = names(api$components$schemas[[schema_element]]$properties),
             common_name = x
           )
         }

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ extract_relevant_schema_info <- function(schema_elements) {`
`92`	`92`	`endpoint = lookup[[schema_element]],`
`93`	`93`	`field = x,`
`94`	`94`	`data_type = data_type,`
`95`		`- group = "",`
	`95`	`+ group = names(api$components$schemas[[schema_element]]$properties),`
`96`	`96`	`common_name = x`
`97`	`97`	`)`
`98`	`98`	`}`