Add functions for minimum, maximum, and range calculations (fpmin, fpmax, prange) with NA handling in R

Author: SebKrantz

NAMESPACE

@@ -1,7 +1,7 @@
 useDynLib(kit, .registration = TRUE)
 
 export(
-  charToFact, count, countNA, countOccur, fduplicated, fpos, funique, iif, nif, nswitch,
-  pall, pallNA, pallv, pany, panyNA, panyv, pcount, pcountNA, pfirst, plast, pmean, pprod, psum, setlevels, topn, uniqLen, vswitch, psort,
+  charToFact, count, countNA, countOccur, fduplicated, fpmin, fpmax, fpos, funique, iif, nif, nswitch,
+  pall, pallNA, pallv, pany, panyNA, panyv, pcount, pcountNA, pfirst, plast, pmean, pprod, prange, psum, setlevels, topn, uniqLen, vswitch, psort,
   getData, shareData, clearData
 )

R/call.R

@@ -19,8 +19,11 @@ panyv       = function(..., value) as.logical(pcount(..., value = value))
 pcountNA    = function(...) .Call(CpcountNAR, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 pfirst      = function(...) .Call(CpfirstR, FALSE, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 plast       = function(...) .Call(CpfirstR, TRUE, if (...length() == 1L && is.list(..1)) ..1 else list(...))
+fpmin       = function(..., na.rm=FALSE) .Call(CfpminR, na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
+fpmax       = function(..., na.rm=FALSE) .Call(CfpmaxR, na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 pmean       = function(..., na.rm=FALSE) .Call(CpmeanR, na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 pprod       = function(..., na.rm=FALSE) .Call(CpprodR, na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
+prange      = function(..., na.rm=FALSE) .Call(CprangeR, na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 psum        = function(..., na.rm=FALSE) .Call(CpsumR,  na.rm, if (...length() == 1L && is.list(..1)) ..1 else list(...))
 setlevels   = function(x, old = levels(x), new, skip_absent=FALSE) invisible(.Call(CsetlevelsR, x, old, new, skip_absent))
 topn        = function(vec, n=6L, decreasing=TRUE, hasna=TRUE,index=TRUE) if(index) .Call(CtopnR, vec, n, decreasing, hasna, parent.frame()) else vec[.Call(CtopnR, vec, n, decreasing, hasna, parent.frame())]

src/init.c

@@ -18,8 +18,11 @@ static const R_CallMethodDef CallEntries[] = {
   {"CpcountR",                 (DL_FUNC) &pcountR,                 -1},
   {"CpcountNAR",               (DL_FUNC) &pcountNAR,               -1},
   {"CpfirstR",                 (DL_FUNC) &pfirstR,                 -1},
+  {"CfpminR",                  (DL_FUNC) &fpminR,                  -1},
+  {"CfpmaxR",                  (DL_FUNC) &fpmaxR,                  -1},
   {"CpmeanR",                  (DL_FUNC) &pmeanR,                  -1},
   {"CpprodR",                  (DL_FUNC) &pprodR,                  -1},
+  {"CprangeR",                 (DL_FUNC) &prangeR,                 -1},
   {"CpsumR",                   (DL_FUNC) &psumR,                   -1},
   {"CsetlevelsR",              (DL_FUNC) &setlevelsR,              -1},
   {"CtopnR",                   (DL_FUNC) &topnR,                   -1},
@@ -50,7 +53,10 @@ void R_init_kit(DllInfo *dll) {
   R_RegisterCCallable("kit", "CpcountNAR",               (DL_FUNC) &pcountNAR);
   R_RegisterCCallable("kit", "CpfirstR",                 (DL_FUNC) &pfirstR);
   R_RegisterCCallable("kit", "CpmeanR",                  (DL_FUNC) &pmeanR);
+  R_RegisterCCallable("kit", "CfpminR",                  (DL_FUNC) &fpminR);
+  R_RegisterCCallable("kit", "CfpmaxR",                  (DL_FUNC) &fpmaxR);
   R_RegisterCCallable("kit", "CpprodR",                  (DL_FUNC) &pprodR);
+  R_RegisterCCallable("kit", "CprangeR",                 (DL_FUNC) &prangeR);
   R_RegisterCCallable("kit", "CpsumR",                   (DL_FUNC) &psumR);
   R_RegisterCCallable("kit", "CsetlevelsR",              (DL_FUNC) &setlevelsR);
   R_RegisterCCallable("kit", "CtopnR",                   (DL_FUNC) &topnR);

src/kit.h

@@ -101,8 +101,11 @@ extern SEXP panyR(SEXP na, SEXP args);
 extern SEXP pcountR(SEXP x, SEXP args);
 extern SEXP pcountNAR(SEXP args);
 extern SEXP pfirstR(SEXP last, SEXP args);
+extern SEXP fpminR(SEXP na, SEXP args);
+extern SEXP fpmaxR(SEXP na, SEXP args);
 extern SEXP pmeanR(SEXP na, SEXP args);
 extern SEXP pprodR(SEXP na, SEXP args);
+extern SEXP prangeR(SEXP na, SEXP args);
 extern SEXP psumR(SEXP na, SEXP args);
 extern SEXP setlevelsR(SEXP x, SEXP old_lvl, SEXP new_lvl, SEXP skip_absent);
 extern SEXP subSetColDataFrame(SEXP df, SEXP str);