[Rcpp-devel] Fwd: Calling R function in Rcpp returns compatibility issues
Sharat
schmoozed at gmail.com
Thu Jul 27 16:24:52 CEST 2017
Thanks James for the quick reply.
Here you go:
[image: Inline image 1]
On Thu, Jul 27, 2017 at 9:14 AM, Balamuta, James Joseph <
balamut2 at illinois.edu> wrote:
> Greetings and Salutations Sharat,
>
>
>
> Could you supply some test data?
>
>
>
> Sincerely,
>
>
>
> JJB
>
>
>
> *From:* rcpp-devel-bounces at lists.r-forge.r-project.org [mailto:
> rcpp-devel-bounces at lists.r-forge.r-project.org] *On Behalf Of *Sharat
> *Sent:* Thursday, July 27, 2017 8:31 AM
> *To:* rcpp-devel at 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;
>
> }
>
>
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.r-forge.r-project.org/pipermail/rcpp-devel/attachments/20170727/bd153ca8/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 25619 bytes
Desc: not available
URL: <http://lists.r-forge.r-project.org/pipermail/rcpp-devel/attachments/20170727/bd153ca8/attachment-0001.png>
More information about the Rcpp-devel
mailing list