ChandlerLutz / starpolishr

Post-polishing of stagazer output

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

star_rhs_names doesn't use regex when the pattern ends with $

ChandlerLutz opened this issue · comments

See this example

library(stargazer); library(starpolishr); library(magrittr)

star.out <- c("", "% Table created by stargazer v.5.2.2 by Marek Hlavac, Harvard University. E-mail: hlavac at fas.harvard.edu", 
"% Date and time: Sun, Nov 25, 2018 - 10:58:01 AM", "\\begin{table}[!htbp] \\centering ", 
"  \\caption{\\textbf{The Impact of the CFPLs on Foreclosure Maintenance and Repair Costs -- Non-Judicial States}} ", 
"  \\label{tab:reg_forc_costs_non_judicial} ", "\\begin{tabular}{@{\\extracolsep{5pt}}lccccccc} ", 
"\\\\[-1.8ex]\\hline ", "\\hline \\\\[-1.8ex] ", " & \\multicolumn{7}{c}{\\textit{Dependent variable:}} \\\\ ", 
"\\cline{2-8} ", "\\\\[-1.8ex] & \\multicolumn{7}{c}{Foreclosure Maintenance and Repair Costs} \\\\ ", 
"\\\\[-1.8ex] & (1) & (2) & (3) & (4) & (5) & (6) & (7)\\\\ ", 
"\\hline \\\\[-1.8ex] ", " CA & $-$57.887 & 169.838 & 187.892 &  &  &  &  \\\\ ", 
"  & (164.887) & (176.247) & (159.774) &  &  &  &  \\\\ ", "  & & & & & & & \\\\ ", 
" CFPL & 478.728$^{}$ & 229.776$^{}$ &  &  &  &  &  \\\\ ", "  & (93.628) & (87.030) &  &  &  &  &  \\\\ ", 
"  & & & & & & & \\\\ ", " CA.CFPL & 573.777$^{}$ & 493.146$^{}$ & 471.543$^{}$ & 314.882$^{}$ & 411.657$^{}$ & 946.176$^{}$ & 917.492$^{}$ \\\\ ", 
"  & (163.500) & (134.201) & (123.034) & (109.373) & (116.058) & (416.403) & (467.139) \\\\ ", 
"  & & & & & & & \\\\ ", " months.in.reo.forc &  & 314.932$^{}$ & 324.301$^{}$ & 412.341$^{}$ & 411.199$^{}$ & 420.230$^{}$ & 423.470$^{}$ \\\\ ", 
"  &  & (28.429) & (27.554) & (33.895) & (33.236) & (35.868) & (36.320) \\\\ ", 
"  & & & & & & & \\\\ ", " months.in.reo.forc2 &  & $-$3.091$^{}$ & $-$3.356$^{}$ & $-$5.222$^{}$ & $-$5.361$^{}$ & $-$5.683$^{}$ & $-$5.709$^{}$ \\\\ ", 
"  &  & (1.238) & (1.215) & (1.306) & (1.316) & (1.412) & (1.428) \\\\ ", 
"  & & & & & & & \\\\ ", " Constant & 3,016.112$^{}$ & 1,007.346$^{}$ &  &  &  &  &  \\\\ ", 
"  & (132.352) & (159.897) &  &  &  &  &  \\\\ ", "  & & & & & & & \\\\ ", 
"\\hline \\\\[-1.8ex] ", "Observations & 31,056 & 31,056 & 31,056 & 31,056 & 31,056 & 31,056 & 31,056 \\\\ ", 
"\\hline ", "\\hline \\\\[-1.8ex] ", "\\textit{Note:}  & \\multicolumn{7}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\\\ ", 
"\\end{tabular} ", "\\end{table} ")

star.out <- star.out %>% star_rhs_names(pattern = c("CA.CFPL", "months.in.reo.forc$", "months.in.reo.forc2$"),
                 line1 = c("CA $\\\\times$ CFPL", "Months in REO", "Months in REO"),
                 line2 = c("", "Foreclosure", "Foreclosure\\$^2\\$")
                 )

print(star.out)