refactor: rename is_list_of to is_list_all

NAMESPACE

@@ -46,7 +46,7 @@ export(is_ggproto)
 export(is_gist_url)
 export(is_gmap_url)
 export(is_gsheet_url)
-export(is_list_of)
+export(is_list_all)
 export(is_lonlat_crs)
 export(is_margin)
 export(is_named)

NEWS.md

@@ -1,5 +1,6 @@
 # isstatic development
 
+* Rename `is_list_of()` to `is_list_all()` to avoid name conflict with `vctrs::is_list_of()`
 * Add `is_file()`, `is_dir()`, `has_min_length()` and `has_max_length()` functions.
 * Make `str_fileext()` length stable (although functions may now return NA values).
 

R/is_list.R

@@ -6,7 +6,7 @@
 #' @param x Object to be tested.
 #' @param what A character vector naming classes.
 #' @export
-is_list_of <- function(x, what = NULL) {
+is_list_all <- function(x, what = NULL) {
   is.list(x) && all(vapply(x, FUN = inherits, FUN.VALUE = TRUE, what))
 }
 
@@ -16,7 +16,7 @@ is_list_of <- function(x, what = NULL) {
 #' @param x Object to be tested.
 #' @export
 is_gg_list <- function(x) {
-  is_list_of(x, "gg")
+  is_list_all(x, "gg")
 }
 
 
@@ -25,5 +25,5 @@ is_gg_list <- function(x) {
 #' @param x Object to be tested.
 #' @export
 is_sf_list <- function(x) {
-  is_list_of(x, "sf")
+  is_list_all(x, "sf")
 }

inst/staticexports/is_list.R

@@ -3,7 +3,7 @@
 #' @param x Object to be tested.
 #' @param what A character vector naming classes.
 #' @noRd
-is_list_of <- function(x, what = NULL) {
+is_list_all <- function(x, what = NULL) {
   is.list(x) && all(vapply(x, FUN = inherits, FUN.VALUE = TRUE, what))
 }
 
@@ -13,7 +13,7 @@ is_list_of <- function(x, what = NULL) {
 #' @param x Object to be tested.
 #' @noRd
 is_gg_list <- function(x) {
-  is_list_of(x, "gg")
+  is_list_all(x, "gg")
 }
 
 
@@ -22,5 +22,5 @@ is_gg_list <- function(x) {
 #' @param x Object to be tested.
 #' @noRd
 is_sf_list <- function(x) {
-  is_list_of(x, "sf")
+  is_list_all(x, "sf")
 }