Greetings and Salutations Sharat, Could you supply some test data?
Sincerely, JJB From: rcpp-devel-boun...@lists.r-forge.r-project.org [mailto:rcpp-devel-boun...@lists.r-forge.r-project.org] On Behalf Of Sharat Sent: Thursday, July 27, 2017 8:31 AM To: rcpp-devel@lists.r-forge.r-project.org Subject: [Rcpp-devel] Fwd: Calling R function in Rcpp returns compatibility issues Hi: I'm trying to call a R function (that compares strings) in Rcpp and return the result to make the comparisons run faster. Am a noob with Rcpp; so please bear. The input to the R function is a matrix of 2 columns. The error is: Error in getGoing(product) : Not compatible with STRSXP: [type=NULL]. Please assist. #include<Rcpp.h> using namespace Rcpp; /*** R comps= function(vec) { streets <- vec cnt <- nrow(streets) res <- c() print(paste0("Comparing ", (cnt)," pairs...")) for (i in 1:cnt) { matched <- TRUE prop1 = streets[i,1] prop2 = streets[i,2] prop1_parts = strsplit(trimws(prop1), ' ') prop2_parts = strsplit(trimws(prop2), ' ') prop1_parts_count = length(prop1_parts[[1]]) prop2_parts_count = length(prop2_parts[[1]]) if (prop1_parts_count == prop2_parts_count) { for (x in 1:prop1_parts_count) { part1 = prop1_parts[[1]][x] part2 = prop2_parts[[1]][x] if (part1 == part2) { matched = matched & TRUE } else if (adist(part1, part2, partial = T)==0 | adist(part2,part1, partial = T)==0){ matched = matched & TRUE } else { matched = matched & FALSE break } }#forloop ends if(matched){ append(res,paste(prop1,"<-->", prop2)) } }#if loops ends }#primary for loops ends res }#function ends */ // [[Rcpp::export]] Rcpp::StringMatrix getGoing(Rcpp::StringVector vec){ Rcpp::Environment env = Rcpp::Environment::global_env(); Rcpp::Function f = env["comps"]; Rcpp::StringMatrix result = f(vec); return result; }
_______________________________________________ Rcpp-devel mailing list Rcpp-devel@lists.r-forge.r-project.org https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
