Cómo probar elementos de Rcpp :: CharacterVector para la igualdad?

Question

Estoy tratando de escribir algunos ejemplos de código Rcpp simples. Esto es notablemente fácil con los paquetes Rcpp y inline.

Pero estoy perplejo sobre cómo probar si dos elementos de carácter para la igualdad. El siguiente ejemplo compara los primeros elementos de dos vectores de caracteres. Pero no puedo hacer que compile.

¿Cuál es el truco?

library(Rcpp) 
library(inline) 

cCode <- ' 
    Rcpp::CharacterVector cx(x); 
    Rcpp::CharacterVector cy(y); 
    Rcpp::LogicalVector r(1); 
    r[0] = (cx[0] == cy[0]); 
    return(r); 
    ' 

cCharCompare <- cxxfunction(signature(x="character", y="character"), 
          plugin="Rcpp", body=cCode) 
cCharCompare("a", "b") 

-

La comparación utilizando == funciona perfectamente bien si uno de los dos elementos es una constante. El código siguiente se compila y da resultados esperados:

cCode <- ' 
    Rcpp::CharacterVector cx(x); 
    Rcpp::LogicalVector r(1); 
    r[0] = (cx[0] == "a"); 
    return(r); 
    ' 

cCharCompareA <- cxxfunction(signature(x="character"), plugin="Rcpp", body=cCode) 

cCharCompareA("a") 
[1] TRUE 

cCharCompareA("b") 
[1] FALSE 

Answer 1

Muy buena respuesta (técnica) por @kohske, pero aquí hay algo más C++ - ish: ¡simplemente compare las cadenas!

library(inline)  ## implies library(Rcpp) when we use the plugin 

cCode <- ' 
    std::string cx = Rcpp::as<std::string>(x); 
    std::string cy = Rcpp::as<std::string>(y); 
    bool res = (cx == cy); 
    return(Rcpp::wrap(res)); 
    ' 

cCharCompare <- cxxfunction(signature(x="character", y="character"), 
          plugin="Rcpp", body=cCode) 
cCharCompare("a", "b") 

Si realmente quiere comparar sólo el primer carácter de las cuerdas, a continuación, se puede pasar de x a x.c_str() y, o bien índice de su elemento inicial, o simplemente eliminar la referencia al puntero al primer carácter.

Una respuesta más R-ish tal vez podría barrer sobre vectores reales de cuerdas ...

Answer 2

Prueba esto:

// r[0] = (cx[0] == cy[0]); 
    // r[0] = ((char*)cx[0] == (char*)cy[0]); <- this is wrong 
    r[0] = (*(char*)cx[0] == *(char*)cy[0]); // this is correct. 

No es fácil de explicar, pero

1. CharacterVector no es char[].
2. operator [] devuelve StringProxy.
3. StringProxy no es un tipo de char.
4. StringProxy tiene una función de operador miembro char* que convierte StringProxy en char*.

Por lo tanto, tal vez (char*)cx[0] es un puntero. Ahora me olvido de muchas cosas acerca de la sintaxis de C++ ...

La razón hy falla la compilación es el fracaso de la inferencia de tipos en la sobrecarga de operador == para StringProxy.

Answer 3

El operador de igualdad se ha introducido en Rcpp 0.10.4. La puesta en práctica se parece a esto en la clase string_proxy:

bool operator==(const string_proxy& other){ 
    return strcmp(begin(), other.begin()) == 0 ; 
} 

Así que ahora podemos escribir:

#include <Rcpp.h> 
using namespace Rcpp ; 

// [[Rcpp::export]] 
LogicalVector test(CharacterVector x, CharacterVector y){ 
    Rcpp::LogicalVector r(x.size()); 
    for(int i=0; i<x.size(); i++){ 
     r[i] = (x[i] == y[i]); 
    } 
    return(r); 
} 

Y algo similar se utiliza en nuestras pruebas unitarias:

> test(letters, letters) 
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE 
[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE