我正在尝试捕获一些 R 代码的输出并将其替换为乳胶代码。
如果您运行此代码：
library(stargazer)
x <- capture.output(stargazer(mtcars[1:5, 1:3], summary = FALSE, title="The main caption of the table."))
x
这是输出：
[1] ""
[2] "% Table created by stargazer v.5.1 by Marek Hlavac, Harvard University. E-mail: hlavac at fas.harvard.edu"
[3] "% Date and time: Sat, Jun 27, 2015 - 11:36:07"
[4] "\\begin{table}[!htbp] \\centering "
[5] " \\caption{The main caption of the table.} "
[6] " \\label{} "
[7] "\\begin{tabular}{@{\\extracolsep{5pt}} cccc} "
[8] "\\\\[-1.8ex]\\hline "
[9] "\\hline \\\\[-1.8ex] "
[10] " & mpg & cyl & disp \\\\ "
[11] "\\hline \\\\[-1.8ex] "
[12] "Mazda RX4 & $21$ & $6$ & $160$ \\\\ "
[13] "Mazda RX4 Wag & $21$ & $6$ & $160$ \\\\ "
[14] "Datsun 710 & $22.800$ & $4$ & $108$ \\\\ "
[15] "Hornet 4 Drive & $21.400$ & $6$ & $258$ \\\\ "
[16] "Hornet Sportabout & $18.700$ & $8$ & $360$ \\\\ "
[17] "\\hline \\\\[-1.8ex] "
[18] "\\end{tabular} "
[19] "\\end{table} "
我需要将第 5 行替换为：
" \\caption[short caption]{The main caption of the table.} "
我怎样才能做到这一点？
Try:
x <- sub("\\caption{The main caption of the table.}",
"\\caption[short caption]{The main caption of the table.}", fixed = TRUE, x)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
