Rcpp :: CharacterVector 요소가 동일한 지 테스트하는 방법은 무엇입니까?

Question

간단한 Rcpp 코드 예제를 작성하려고합니다. 이것은 Rcpp 및 inline 패키지를 사용하면 매우 쉽습니다.

하지만 두 문자 요소가 동일한 지 여부를 테스트하는 방법에 난처한 생각이납니다. 다음 예제에서는 두 문자 벡터의 첫 번째 요소를 비교합니다. 하지만 컴파일 할 수는 없습니다.

트릭이란 무엇입니까?

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") 

-

두 요소 중 하나가 일정하면 완벽하게 정상적으로 == 작품을 사용하여 비교. 다음 코드는 컴파일 준다 예상 결과 :

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

@kohske가 제공하는 매우 멋진 (기술적 인) 답변이지만, 여기에 더 많은 C++이 있습니다. ish : 문자열을 비교하십시오! 당신이 정말로 문자열의 바로 첫 번째 문자를 비교하려면

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") 

는, 당신은 x에서 x.c_str() 인덱스 초기 요소, 또는 단지 첫 번째 문자에 대한 포인터 역 참조 중 하나에 갈 수 있습니다. 더 R-틱 대답은 아마도 문자열의 실제 벡터를 통해 청소 수

...

Answer 2

이 시도 :

이

// 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. 

설명하기 쉽지 않지만

1. CharacterVector은 char[] 없습니다.
2. operator []은 StringProxy을 반환합니다.
3. StringProxy은 char이 아닙니다.
4. StringProxy에는 StringProxy을 char*으로 변환하는 멤버 연산자 함수 char*이 있습니다.

따라서 (char*)cx[0]은 포인터입니다. 는 지금은 컴파일이 실패

이유 HY는 StringProxy에 대한 연산자 오버로드 ==의 형식 유추의 실패입니다 ... C++ 구문에 대한 많은 것을 잊는다.

Answer 3

항등 연산자는 Rcpp 0.10.4에 도입되었습니다.

#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); 
} 

을 그리고 비슷한 일이 우리의 단위 테스트에 사용됩니다 : 지금 우리가 쓸 수 그래서

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

:

> 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