r - 自动将 TeXForm("Sqrt(x^2/(z^2+1))") 结果强制转换为字符

Question

我有我转换为 LaTeX 的公式Ryacas::TeXForm。我无法从包含 LaTeX 代码的结果字符字符串中获取，而无需手动操作。我试过了：

y<-"Sqrt(x^2/(z^2+1))"
Sym(y)
z<-TeXForm(y)

我有：

"$\sqrt{\frac{x ^{2}}{z ^{2} + 1} }$";

但class(z)同时给出“符号”和“字符”

然后我试着强迫它像 w<-"$\sqrt{\frac{x ^{2}}{z ^{2} + 1} }$"这样：

 class(w)
[1] "character"

当然，我可以通过复制和粘贴来完成，但是如何自动完成呢？

Answer 1

一种可能的方法Ryacas：

> yacas(TeXForm(y))
"$\sqrt{\frac{x ^{2}}{z ^{2} + 1} }$";

> str(yacas(TeXForm(y)))
List of 2
 $          : NULL
 $ YacasForm: chr "\"$\\sqrt{\\frac{x ^{2}}{z ^{2} + 1} }$\";"
 - attr(*, "class")= chr "yacas"

> str(yacas(TeXForm(y))$YacasForm)
 chr "\"$\\sqrt{\\frac{x ^{2}}{z ^{2} + 1} }$\";"