输出两张观星表而不是一张

如何解决输出两张观星表而不是一张

我在 github (https://github.com/labreumaia/longtable.stargazer/blob/master/longtable.stargazer.R) 上发现了这个结合了 stargazer 和 longtable 的漂亮代码：

longtable.stargazer = function(...,float = T,longtable.float = F,longtable.head = T,filename = NULL){
  # Capturing stargazer to hack it
  require(stargazer)
  res = capture.output(
    stargazer(...,float = float)
  )
  # Changing tabulare environment for longtable
    res = gsub("tabular","longtable",res)
  # removing floating environment
  if(float == T & longtable.float == F){
    res[grep("table",res)[1]] = res[grep("longtable",res)[1]]
    # Removing extra longtable commands
    res = res[-grep("longtable",res)[2]]
    res = res[-length(res)]
  }
  # Adding page headings
  if(longtable.head == T){
    res = c(res[1:which(res == "\\hline \\\\[-1.8ex] ")[1] - 1],"\\endhead",res[which(res == "\\hline \\\\[-1.8ex] ")[1]:length(res)])
  }
  # Exporting
  cat(res,sep = "\n")
  # Exporting
  if(!is.null(filename)){
    cat(res,file = filename,sep = "\n")
    # Message
    cat(paste("\nLaTeX output printed to",filename,"\n",sep = " ",collapse = ""))
  }else{
    cat(res,sep = "\n")
  }
}

但是当我对汽车数据进行以下回归分析时：

ols <- lm(speed ~ dist,data = cars)

longtable.stargazer(ols)

我最终输出了两个表。为什么会发生这种情况？

这是我得到的输出：

% Table created by stargazer v.5.2.2 by Marek Hlavac,Harvard University. E-mail: hlavac at fas.harvard.edu
% Date and time: Wed,May 05,2021 - 20:22:44
\begin{table}[!htbp] \centering 
  \caption{} 
  \label{} 
\begin{longtable}{@{\extracolsep{5pt}}lc} 
\\[-1.8ex]\hline 
\endhead
\hline \\[-1.8ex] 
 & \multicolumn{1}{c}{\textit{Dependent variable:}} \\ 
\cline{2-2} 
\\[-1.8ex] & speed \\ 
\hline \\[-1.8ex] 
 dist & 0.166$^{***}$ \\ 
  & (0.017) \\ 
  & \\ 
 Constant & 8.284$^{***}$ \\ 
  & (0.874) \\ 
  & \\ 
\hline \\[-1.8ex] 
Observations & 50 \\ 
R$^{2}$ & 0.651 \\ 
Adjusted R$^{2}$ & 0.644 \\ 
Residual Std. Error & 3.156 (df = 48) \\ 
F Statistic & 89.567$^{***}$ (df = 1; 48) \\ 
\hline 
\hline \\[-1.8ex] 
\textit{Note:}  & \multicolumn{1}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\ 
\end{longtable} 
\end{table} 

% Table created by stargazer v.5.2.2 by Marek Hlavac,2021 - 20:22:44
\begin{table}[!htbp] \centering 
  \caption{} 
  \label{} 
\begin{longtable}{@{\extracolsep{5pt}}lc} 
\\[-1.8ex]\hline 
\endhead
\hline \\[-1.8ex] 
 & \multicolumn{1}{c}{\textit{Dependent variable:}} \\ 
\cline{2-2} 
\\[-1.8ex] & speed \\ 
\hline \\[-1.8ex] 
 dist & 0.166$^{***}$ \\ 
  & (0.017) \\ 
  & \\ 
 Constant & 8.284$^{***}$ \\ 
  & (0.874) \\ 
  & \\ 
\hline \\[-1.8ex] 
Observations & 50 \\ 
R$^{2}$ & 0.651 \\ 
Adjusted R$^{2}$ & 0.644 \\ 
Residual Std. Error & 3.156 (df = 48) \\ 
F Statistic & 89.567$^{***}$ (df = 1; 48) \\ 
\hline 
\hline \\[-1.8ex] 
\textit{Note:}  & \multicolumn{1}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\ 
\end{longtable} 
\end{table} 

解决方法

有一个松散的 cat() 调用，然后是 cat() 中的另一个 if/else，它使输出加倍。注释掉该行：

longtable.stargazer = function(...,float = T,longtable.float = F,longtable.head = T,filename = NULL){
  # Capturing stargazer to hack it
  require(stargazer)
  res = capture.output(
    stargazer(...,float = float)
  )
  # Changing tabulare environment for longtable
    res = gsub("tabular","longtable",res)
  # removing floating environment
  if(float == T & longtable.float == F){
    res[grep("table",res)[1]] = res[grep("longtable",res)[1]]
    # Removing extra longtable commands
    res = res[-grep("longtable",res)[2]]
    res = res[-length(res)]
  }
  # Adding page headings
  if(longtable.head == T){
    res = c(res[1:which(res == "\\hline \\\\[-1.8ex] ")[1] - 1],"\\endhead",res[which(res == "\\hline \\\\[-1.8ex] ")[1]:length(res)])
  }
  # Exporting
  # cat(res,sep = "\n") <---- comment out this line
  # Exporting
  if(!is.null(filename)){
    cat(res,file = filename,sep = "\n")
    # Message
    cat(paste("\nLaTeX output printed to",filename,"\n",sep = " ",collapse = ""))
  }else{
    cat(res,sep = "\n")
  }
}

ols <- lm(speed ~ dist,data = cars)
longtable.stargazer(ols)