r - xtable テーブルノートのラッピング

Question

テーブルノートがテーブルの幅よりも長い場合にラップする xtable にテーブルノートを追加する決定的な方法はありますか? ここでこの質問を参照しました。これは、長いテーブル ノートを複数の行に分割し、それをadd.to.row.引数に追加することを提案しています。それを避けて自動的にラップする方法はありますか?

Latex のみを使用\usepackage{threeparttable}[flushleft]している場合は、以下のコードを使用します。\end{tabular}ただし、引数で行を追加できるとは思いませんadd.to.row。

前もって感謝します！

\documentclass{article}
\usepackage{threeparttable}[flushleft]
\usepackage{booktabs}

\begin{document}

      \begin{table}
        \centering
        \caption{Here is a caption}
        \begin{threeparttable}
          \begin{tabular}{lll}
          \toprule
          Entry A\tnote{1}   &   Entry B   &  Entry C   \\
          Entry D\tnote{2}   &   Entry E   &  Entry F   \\
          Entry G   &   Entry H   &  Entry I   \\
          \bottomrule
          \end{tabular}%
          \begin{tablenotes}
            \item[1] Here is my first note.
            \item[2] And here is my second note.
          \end{tablenotes}
        \end{threeparttable}
        \label{tab:table}%
      \end{table}%

\end{document}