r - Access "natural coercion" logic from C/C++ code -

-

when calling unlist or c, type promoted smallest type capable of representing everything:

> c(as.integer(1), 2.3, '3') [1] "1"   "2.3" "3"   > c(true, 5) [1] 1 5 > unlist(list(as.integer(1:5), as.complex(2:4))) [1] 1+0i 2+0i 3+0i 4+0i 5+0i 2+0i 3+0i 4+0i

how can access logic c/c++ code?

i have looked c sources of c , unlist , found following code in both do_c_dflt , do_unlist (main/bind.c):

if (data.ans_flags & 512)      mode = exprsxp; else if (data.ans_flags & 256) mode = vecsxp; else if (data.ans_flags & 128) mode = strsxp; else if (data.ans_flags &  64) mode = cplxsxp; else if (data.ans_flags &  32) mode = realsxp; else if (data.ans_flags &  16) mode = intsxp; else if (data.ans_flags &   2) mode = lglsxp; else if (data.ans_flags &   1) mode = rawsxp;

the variable data, of type binddata, computed routine answertype seems define coercion logic. however, type binddata declared in bind.c only.

so: r's general coercion logic exported anywhere, or bound copy-paste code bind.c? (sorry pun...)

kevin posted an article on rcpp gallery pretty close in spirit, tests explicitly using macros r's api:

#include <rcpp.h> using namespace rcpp;  // [[rcpp::export]] list do_stuff( list x_ ) {     list x = clone(x_);     for( list::iterator = x.begin(); != x.end(); ++it ) {         switch( typeof(*it) ) {             case realsxp: {                 numericvector tmp = as<numericvector>(*it);                 tmp = tmp * 2;                 break;                 }             case intsxp: {                 if( rf_isfactor(*it) ) break; // factors have type intsxp                 integervector tmp = as<integervector>(*it);                 tmp = tmp + 1;                 break;             }             default: {                 stop("incompatible sexp encountered;");             }        }   }     return x; }

Comments

Post a Comment

Popular posts from this blog

javascript - Image onload event not firing in firefox -

-
i'm creating image preloader. works fine in browsers except firefox (testing firefox 10.0). input array of images called image_list . these images appended dynamically body of document , load callback attached, calls function update_progress . code follows: $(image_list).each(function() { var x = $('<img />') .load(function() {update_progress(percent_loaded += step);}) .attr('src', this) .appendto('body') .css('display', 'none'); .each(function() { if(this.complete) update_progress(percent_loaded += step); }); }); in firefox, load callback , update_progress never called. yet exact same code works fine in chrome , other browsers i've tested. there way detect when image has loaded in firefox? i first check see whether image has height, checking height property. if (the_image.height > 0) { // image loaded (possibly cached) } if have cached ...
Read more

android - getbluetoothservice() called with no bluetoothmanagercallback -

-
i getting getbluetoothservice() called no bluetoothmanagercallback error in android application. i have no idea causing or bluetooth manager callbacks. can give me idea of causing problem or start looking. by reading android source code, seems warning cannot about. source code shows if call bluetoothsocket#connect(); then call bluetoothadapter.getdefaultadapter().getbluetoothservice(null); the key here, null parameter passes in above line. due this, there no callback, , bluetoothsocket class throw out warning. since warning, not think need it. https://android.googlesource.com/platform/frameworks/base/+/master/core/java/android/bluetooth/bluetoothsocket.java line 306 https://android.googlesource.com/platform/frameworks/base/+/master/core/java/android/bluetooth/bluetoothadapter.java line 1610
Read more

sql - ASP.NET SqlDataSource, like on SelectCommand -

-
i'm working on asp.net. have sqldatasource query hardcoded on selectcommand: <asp:sqldatasource id="datasource1" runat="server" cancelselectonnullparameter="false" connectionstring="<%$ connectionstrings:s.properties.settings.connectionstring %>" selectcommand="select * [table] ([col1] case @col1_param when null col1 else @col1_param end) , ([col2] case @col2_param when null col2 else @col2_param end)" selectcommandtype="text"> <selectparameters> <asp:controlparameter controlid="textbox1" name="col1_param" propertyname="text" type="string" /> <asp:controlparameter controlid="textbox2" name="col2_param" propertyname="text" type="string" /> </selectparameters> what want if enter data on 1 textbox only, data display according textbox...
Read more