test: add running example for select_non_nested

Refs #7
inrae · Feb 13, 2023 · f86ce64 · f86ce64
1 parent 97cfc64
commit f86ce64
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -9,7 +9,15 @@
 #'
 #' @examples
 #' \dontrun{
-#' my_flat_list <- select_non_nested(my_nested_list)
+#' l <- doApiQuery(api = "hydrobio",
+#'                 endpoint = "stations_hydrobio",
+#'                 params = list(code_region = 52))
+#'
+#' select_non_nested(l) %>%
+#'   select(-code_commune,
+#'          -libelle_departement,
+#'          -(libelle_region:longitude)) %>%
+#'   distinct()
 #' }
 select_non_nested <- function(my_list)
 

diff --git a/man/utils.Rd b/man/utils.Rd