r - 如何在 R/Sweave 的 Sexpr 中使用 %in%？

Question

这是我在 Rnw 文件中的代码：

\Sexpr{length(which(x %in% c('a', 'b')))}

由于 % 是注释的语法，因此此代码不起作用。
如何在 R/Sweave 的 Sexpr 中使用 %in%？

Answer 1

我无法将问题标记为重复，但我从这里和 Yihui 得到了答案：\Sexpr{} special LaTeX characters ($, &, %, # etc.) in .Rnw-file

以下代码将允许在 \Sexpr 中内联使用特殊的乳胶字符，以便您可以使用 %in%。这是一个比您发布的问题更普遍的问题。

hook_inline = knit_hooks$get('inline')
knit_hooks$set(inline = function(x) {
  if (is.character(x)) x = knitr:::escape_latex(x)
  hook_inline(x)
})