抑制由 C++ 代码中的“printf”而不是 R 中的“消息”或“警告”显示的消息

Question

只是like this question，除了这个包作者更令人烦恼的是使用printf和snprintf在C/C++代码中显示消息、警告和错误的混合：

library('inline')
silly_developer_cxx_function <- cxxfunction(
  signature(x = "integer"),
  'printf("%s", "Seriously! Thanks for using my function!!");
  return ScalarReal(INTEGER(x)[0]);'
  )
silly_developer_function <- function(i){
  print("Thanks for using my function!!")
  return(silly_developer_cxx_function(as.integer(i)))
}

我可以用capture.output 抑制R 级打印语句，但sprintf 语句似乎无法杀死：

> capture.output(x <- silly_developer_function(1L), file='/dev/null')
Seriously! Thanks for using my function!!

Answer 1

扎克，你有更多的上下文吗？你是在谈论 CRAN 包 RPostgreSQL，我曾经为 Google Summer of Code 指导过，后来维护（现在由 Tomoaki Nishiyama 非常有能力），因为 CRAN 不允许实际的 printf 或 std::cout per Section 6.5 of Writing R Extensions.

您通常可以联系到 Tomoaki 读取的 r-sig-db 上的 DB 包的维护者，而且我们（有？）也有 rpostgresql 的专用列表。 Tomoaki 反应灵敏，我建议使用合适的场地。通风没有帮助。我只是因为你（错误地？）在上面贴了Rcpp 标签而抓住了它。或者您是不是碰巧指的是 Tim Keitt 的（非常不同的）rpg，却被错误地称为RPostgreSQL？

编辑：一些历史。我们从来没有合适的 PostgreSQL 后端。因此建议将此作为 Google Summer of Code 的主题，一名学生接受并编写了第一个有点骇人听闻的版本。主要是通过查看 RMySQL 做了什么并适应 PostgreSQL API。因为行为是由数据库接口——DBI 的 R/S 定义定义的。

所以你似乎抱怨的是（首先在 RPostgreSQL 源代码中找到 grep）

    (void) sprintf(buf, msg, (int) mgr->length);
    RS_DBI_errorMessage(buf, RS_DBI_ERROR);

因此我相当肯定 RMySQL 也是如此。鉴于如果准备好的字符串（或者更确切地说，char 向量）是一种编程用途，我认为您实际上可以抑制它。

如果我是你，我会查看源代码和/或询问 r-sig-db。