Достаточно легко попробовать!
код
#include <Rcpp.h>
// [[Rcpp::export]]
bool compToInf(double x) {
return x < R_PosInf;
}
/*** R
compToInf(.Machine$double.xmax) ## largest representable double
compToInf(Inf)
*/
Демо
R> sourceCpp("/tmp/so50229770.cpp")
R> compToInf(.Machine$double.xmax) ## largest representable double
[1] TRUE
R> compToInf(Inf)
[1] FALSE
R>