minimal_rcpp_code_to_freeeze_windows.R

Rcpp::cppFunction('
void foo() {
  // works fine if I change the pattern to one without []
  std::regex reg("[0-9]");
}
', includes = "#include <regex>")

# works
Sys.setlocale("LC_ALL", 'English')
foo()

# freezes
Sys.setlocale("LC_ALL", 'Japanese')
foo()

minimal_rcpp_code_to_freeeze_windows_cpp11.R

cpp11::cpp_source(
  code = 
    '#include <regex>

[[cpp11::register]]
void foo() {
  std::regex reg("[0-9]");
}
')

# works
Sys.setlocale("LC_ALL", 'English')
foo()

# freezes
Sys.setlocale("LC_ALL", 'Japanese')
foo()

This should work...

cpp11::cpp_source(
  code = 
    '#include <regex>
[[cpp11::register]]
void foo() {
  std::regex reg("[0-9]", std::regex::ECMAScript & !std::regex::collate);
}
')

c.f. https://en.cppreference.com/w/cpp/regex/syntax_option_type

cpp11::cpp_source(
  code = '
#include <regex>

[[cpp11::register]]
bool grepl(const std::string pattern_, const std::string x) {
  std::regex::flag_type ECMA_no_collate = static_cast<std::regex::flag_type>(std::regex::ECMAScript & !std::regex::collate);
  std::regex pattern(pattern_, ECMA_no_collate);
  std::smatch match;
  
  return std::regex_search(x, match, pattern);
}
')

grepl("[f]", "foo")
grepl("[e]", "foo")