创建专门的 \Sexpr 函数版本

Question

我正在使用 exams 包生成一些考试（工程学）。我的源文件是 Rnw 格式，所以底层引擎是 Sweave。

在 R 端，我正在使用 units 包（检查维度的正确性）并且我创建了一个函数（称为 units2tex）将量级从单位转换为 LaTeX 等价物。所以，当我计算一个变量时，我必须为 LaTeX 创建一个副本：

<<>>=
R = set_units(1,ohm)
I = set_units(1,A)
V = R*I

R_tex = units2tex(R)
I_tex = units2tex(I)
#V_tex = units2tex(V)

@

For $R = \Sexpr{R_tex}$, the answer is \Sexpr{units2tex(V)}.

在这两种情况下（打印 R 和 V）我必须在某处显式调用 units2tex 函数。这是很多输入（输入更多，错误的地方更多），因为有很多步骤和中间时间值。

是否可以轻松创建带有自动函数调用的 \Sexpr 版本？

更具体地说：

是否可以创建 \SexprT{V} 使其像 \Sexpr{units2tex(V)} 一样运行？
是否可以创建 \SexprT{V,digits=2}（或类似的）以像 \Sexpr{units2tex(V,digits=2)} 一样运行？

在两种情况下都使用原来的\Sexpr.

我目前的选择及其缺点：

显式调用 units2tex(...) 和重复变量（单位版本和 LaTeX 版本）。这是我目前的做法。很多打字，容易忘记转换或生成以后不使用的转换。
使用非常短的函数名称：\Sexpr{t(V)}。很难记住每个翻译函数的意思。命名空间的污染。我还记得上次我使用 c 函数（在 a 和 b 之后）并破坏了原来的 c 函数。
使用某种预处理器并进行了更改。正如我之前所说，所有生态系统都与考试包一起工作。这个包在后台执行 Sweave，我不想改变文件的管道来生成测试。我会写一个 *.Rnw2 文件并且必须在 ¿sed 中创建一个脚本？ ¿R?，读取文件，修改值并生成 *.Rnw 文件，然后调用 exams2pdf 函数...如果我忘记更新 Rnw 考试文件，就会出现问题。我会使用 Makefile 来协调，但我必须在终端和 Rstudio 之间切换......这个选项可能是最好的（在创建 \Sexpr 版本之后）但解决方案掩盖了管道并且难以快速生成问题以检查它们。

所以，最好的方法是：是否可以创建 \Sexpr 的变体？

完整示例： 文件：“question.Rnw”

\usepackage[utf8]{inputenc}
\usepackage[OT1]{fontenc}

<<echo=FALSE, results=hide>>=
library(units)

units2tex <- function(x) {
# this function is not important here. Simplified version the original version much complex
paste0(x,deparse_unit(x))
}

@


\begin{question}

<<echo=FALSE, results=hide>>=

In <- set_units(1e-3,A)
Pn <- set_units(sample(c(2,1,0.5,0.25,0.125),1),W)

In_tex <- units2tex(In)
Pn_tex <- units2tex(Pn)

@

A resistor nah nah nah current $I_n=\Sexpr{In_tex}$ nah, nah, nah $P_n=\Sexpr{Pn_tex}$

What is V?

<<echo=FALSE, results=hide>>=
Vn <- set_units(Pn/In,V)
Vn_tex <- units2tex(Vn) 
@

\begin{answerlist}
  \item $V = \Sexpr{Vn_tex}$
  \item $V = \Sexpr{Pn_tex}$
  \item $V = \Sexpr{In_tex}$
\end{answerlist}    
\end{question}

\begin{solution}

To calculate $V$, we do $V= P_n/I_n = \frac{\Sexpr{Pn_tex}}{\Sexpr{In_tex}} = \Sexpr{Vn_tex}$
\begin{answerlist}
  \item Ok
  \item Bad
  \item Wrong
\end{answerlist}    
\end{solution}

\exname{question1}
\extype{schoice}
\exsolution{100}
\exshuffle{TRUE}

并编译：

library(exams)
exams2html(c("question1.Rnw"), encoding="utf-8",template='plain8.html',mathjax = TRUE)

Answer 1

减少命名空间污染：

a <- list(t=function(x){units2tex(x)},d=function(x){units2tex(x,digits=2)})

以后 \Sexpr{a$t(V)}

它几乎比 \Sexpr{V_tex} 短，但我不必定义 V_tex。

Answer 2

在 Rnw 练习中，通过显式调用 as.character() 将 \Sexpr{} 的内容转换为字符。由于这是一个通用函数，您可以轻松定义自己的方法，例如，

as.character.units <- function(x, ...) units2tex(x, ...)

然后只需使用 \Sexpr{V} 即可在后台自动调用您的 units2tex() 函数。

请注意，这同样不适用于 Rmd 练习。所以我想混合 Rnw 和 Rmd 练习，然后使用如下所示的快捷函数名称可能会更好：

u2t <- function(x, ...) units2tex(x, ...)

这需要分别称为 \Sexpr{u2t(V)} 和 `r u2t(V)`。

创建专门的 \Sexpr 函数版本

Creation of especialized \Sexpr function version

r

sweave

r-exams