/usr/lib/R/site-library/dplyr/include/dplyr/comparisons.h is in r-cran-dplyr 0.7.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | #ifndef dplyr_comparison_H
#define dplyr_comparison_H
namespace dplyr {
template <int RTYPE>
struct comparisons {
typedef typename Rcpp::traits::storage_type<RTYPE>::type STORAGE;
static inline bool is_less(STORAGE lhs, STORAGE rhs) {
if (is_na(lhs)) return false;
if (is_na(rhs)) return true;
return lhs < rhs;
}
static inline bool is_greater(STORAGE lhs, STORAGE rhs) {
return lhs > rhs;
}
static inline bool equal_or_both_na(STORAGE lhs, STORAGE rhs) {
return lhs == rhs;
}
static inline bool is_na(STORAGE x) {
return Rcpp::traits::is_na<RTYPE>(x);
}
};
template <>
struct comparisons<STRSXP> {
static inline bool is_less(SEXP lhs, SEXP rhs) {
// we need this because CHAR(NA_STRING) gives "NA"
if (is_na(lhs)) return false;
if (is_na(rhs)) return true;
return strcmp(CHAR(lhs), CHAR(rhs)) < 0;
}
static inline bool is_greater(SEXP lhs, SEXP rhs) {
if (is_na(lhs)) return false;
if (is_na(rhs)) return true;
return strcmp(CHAR(lhs), CHAR(rhs)) > 0;
}
static inline bool equal_or_both_na(SEXP lhs, SEXP rhs) {
return lhs == rhs;
}
static inline bool is_na(SEXP x) {
return Rcpp::traits::is_na<STRSXP>(x);
}
};
// taking advantage of the particularity of NA_REAL
template <>
struct comparisons<REALSXP> {
static inline bool is_less(double lhs, double rhs) {
if (is_nan(lhs)) {
return false;
} else if (is_na(lhs)) {
return is_nan(rhs);
} else {
// lhs >= rhs is false if rhs is NA or NaN
return !(lhs >= rhs);
}
}
static inline bool is_greater(double lhs, double rhs) {
if (is_nan(lhs)) {
return false;
} else if (is_na(lhs)) {
return is_nan(rhs);
} else {
// lhs <= rhs is false if rhs is NA or NaN
return !(lhs <= rhs);
}
}
static inline bool equal_or_both_na(double lhs, double rhs) {
return
lhs == rhs ||
(is_nan(lhs) && is_nan(rhs)) ||
(is_na(lhs) && is_na(rhs));
}
static inline bool is_na(double x) {
return ISNA(x);
}
static inline bool is_nan(double x) {
return Rcpp::traits::is_nan<REALSXP>(x);
}
};
template <>
struct comparisons<CPLXSXP> {
static inline bool is_less(Rcomplex lhs, Rcomplex rhs) {
if (is_na(lhs)) return false;
if (is_na(rhs)) return true;
return lhs.r < rhs.r || (lhs.r == rhs.r && lhs.i < rhs.i);
}
static inline bool is_greater(Rcomplex lhs, Rcomplex rhs) {
if (is_na(lhs)) return false;
if (is_na(rhs)) return true;
return !(lhs.r < rhs.r || (lhs.r == rhs.r && lhs.i <= rhs.i));
}
static inline bool equal_or_both_na(Rcomplex lhs, Rcomplex rhs) {
return lhs.r == rhs.r && lhs.i == rhs.i;
}
static inline bool is_na(Rcomplex x) {
return Rcpp::traits::is_na<CPLXSXP>(x);
}
};
}
#endif
|