correctly specify sticky column. Closes #279

bcgov · Aug 24, 2021 · 8ef27b7 · 8ef27b7
1 parent acb30bb
commit 8ef27b7
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/describe-feature.R b/R/describe-feature.R
@@ -76,7 +76,6 @@ bcdc_describe_feature.bcdc_record <- function(record){
 }
 
 parse_raw_feature_tbl <- function(query_list){
-
   ## GET and parse data to sf object
   cli <- bcdc_wfs_client()
 
@@ -115,7 +114,7 @@ feature_helper <- function(whse_name){
 
 
   ## Fix logicals
-  xml_df$nillable = ifelse(xml_df$nillable == "true", TRUE, FALSE)
+  xml_df$nillable = ifelse(xml_df$nillable == "true", FALSE, TRUE)
   xml_df <- xml_df[, c("name", "nillable", "type")]
 
   ## Add the id_row back into the front