addCorpusPage function

Implementation

void addCorpusPage(String stdout, List<Widget> pages) {
  String docs = rExtract(stdout, '> docs');
  String inspect = rExtract(stdout, '> tm::inspect(dtm)');
  String docinfo = rExtract(stdout, '> for (i in 1:length(docs)) {');
  String content = '## Summary of the Docs\n\n$docs\n\n'
      '## Summary of the Document Term Matrix\n\n$inspect\n\n'
      '## Individual Documents\n\n$docinfo\n\n';

  if (docs.isNotEmpty || inspect.isNotEmpty || docinfo.isNotEmpty) {
    pages.add(
      TextPage(
        title: '''

        # Corpus Content

        Built using [tm::inspect()](https://www.rdocumentation.org/packages/tm/topics/Corpus).

        ''',
        content: content,
      ),
    );
  }
}