Rename .f to .p

Author: mbojan

R/misc.utilities.R

@@ -538,15 +538,15 @@ opttest <- function(expr, testname=NULL, testvar="ENABLE_statnet_TESTS", yesvals
 #' Test if all items in a vector or a list are identical.
 #'
 #' @param x a vector or a list
-#' @param .f a function of two arguments returning a logical.
+#' @param .f a predicate function of two arguments returning a logical.
 #'   Defaults to [identical()].
-#' @param .ref integer; element of `x` to which all the remaining ones will
-#'   be compared. Defaults to 1.
-#' @param ... additional arguments passed to `.f()`
+#' @param .ref integer; index of element of `x` to which all the remaining
+#'   ones will be compared. Defaults to 1.
+#' @param ... additional arguments passed to `.p()`
 #'
 #' @return By default `TRUE` if all elements of `x` are identical to each
 #'   other, `FALSE` otherwise. In the general case, `all_identical()`
-#'   returns `TRUE` if and only if `fun()` returns `TRUE` for all the pairs
+#'   returns `TRUE` if and only if `.p()` returns `TRUE` for all the pairs
 #'   involving the first element and the remaining elements.
 #'
 #' @seealso [identical()], [all.equal()]
@@ -573,12 +573,12 @@ opttest <- function(expr, testname=NULL, testvar="ENABLE_statnet_TESTS", yesvals
 #' all_identical(x[-2], all.equal) # is FALSE
 #' 
 #' @export
-all_identical <- function(x, .f = identical, .ref = 1L, ...){
+all_identical <- function(x, .p = identical, .ref = 1L, ...){
   if(length(x) == 0) return(TRUE)
-  stopifnot(is.function(.f))
+  stopifnot(is.function(.p))
   stopifnot(length(.ref) == 1)
   v0 <- x[[.ref]]
-  for(v in x[- .ref]) if(!isTRUE(.f(v0, v, ...))) return(FALSE)
+  for(v in x[- .ref]) if(!isTRUE(.p(v0, v, ...))) return(FALSE)
   return(TRUE)
 }