有什么方法可以在此闪亮的应用程序中添加列？

Question

此代码使用指定的关键字搜索PDF文件并给出结果。但这并未指定哪个文件包含该特定关键字。我想添加一列以便于分析文件。

install.packages(pdftools)
library(pdftools)
install.pacakges(pdfsearch)
library(pdfsearch)
setwd("C:/Users/talgotra/Desktop/keyphrases_search/")
file.create("result.txt")
input<-"C:/Users/talgotra/Desktop/keyphrases_search"
file3<-keyword_search(input,keyword=c('rating','default'),path=TRUE,surround_lines = TRUE,ignore_case = FALSE,token_results=TRUE,convert_sentence = TRUE)
require(reshape2)
mat$id <- rownames(mat) 
melt(mat)
run_shiny()
out<-capture.output(file3)
cat("heading",out,file="result.txt",sep="\n",append=TRUE)