r - Warning when downcasting in Rcpp? -


i have rcpp function should take integervector input (as toint). want use on vector of integers, on vector of doubles integers (e.g. 1:4 of type integer 1:4 + 1 of type double).

yet, when used on real floating point numbers (e.g. 1.5), return warning or error instead of silently rounding values (to make them integers).

#include <rcpp.h> using namespace rcpp;  // [[rcpp::export]] integervector toint(robject x) {   return as<integervector>(x); }   > toint(c(1.5, 2.4))  # warning [1] 1 2  > toint(1:2 + 1)      # no need of warning [1] 2 3

rcpp sugar has need. here 1 possible implementation:

#include <rcpp.h> using namespace rcpp;  // [[rcpp::export]] integervector fprive(const robject & x) {     numericvector nv(x);     integervector iv(x);     if (is_true(any(nv != numericvector(iv)))) warning("uh-oh");     return(iv); }  /*** r fprive(c(1.5, 2)) fprive(c(1l, 2l)) */

its output follows:

r> rcpp::sourcecpp('/tmp/fprive.cpp')  r> fprive(c(1.5, 2)) [1] 1 2  r> fprive(c(1l, 2l)) [1] 1 2 warning message: in fprive(c(1.5, 2)) : uh-oh r>

because warning object, can control via options("warn") whether want abort, print immediately, print @ end, ignore, ...


Comments

Post a Comment

Popular posts from this blog

PHP and MySQL WP -

i trying accomplish 2 things here code. writing php directly wp page using insert php plugin. 1) query mysql database , return results 1 column 4 columns. 2) make each result own hyperlink directs user new wp page runs new query on page. i able query show results , turn results dynamic hyperlink, cannot formatting down. right returns result 1 column. here have: [insert_php] $servername = "localhost"; $username = "login"; //edited privacy $password = "password"; //edited privacy $database = "database"; //edited privacy // create connection $conn = new mysqli($servername, $username, $password, $database); // check connection if ($conn->connect_error) { die("connection failed: " . $conn->connect_error); } echo "connected successfully"; //get results database $result = mysqli_query($conn,"select mine mines order mine"); $all_property = array(); //declare array saving property //showing proper...
Read more

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

nginx - phpPgAdmin - log in works but I have to login again after clicking on any links -

i have setup postgres 9.6 , phppgadmin on centos 7 server nginx, i can log in phppgadmin, postgresql server on right of page remains crossed out , link try browse (databases, roles etc) requires log in again. i'm thinking seems sessions problem, unsure how resolve it. any pointers on how fix or should looking @ in order track down problem? solved. turns out owner of /var/lib/php/session apache - needed nginx. sorted changing ownership nginx below: chown -r nginx:nginx /var/lib/php/session/
Read more