使用DT过滤结果创建文本标签

Question

在我的应用程序中，我输入一个名称和一年，并在屏幕上返回过滤后的数据集。 应用程序服务器的代码.R文件如下：

# Get raw data
getTable <- function(df, reaction){
nameSearch = capitalize(tolower(reaction$nameSearch))
new_df <- subset(df, grepl(nameSearch, Name))
year <- reaction$year
indices <- which((new_df$Year >= year[1] & new_df$Year <= year[2]))
new_df <- new_df[indices,-1]
new_df$region <- toupper(new_df$region)
colnames(new_df) <- c("City", "Gender", "Year", "Name", "Frequency")
return(new_df)
}

我需要在表格下方的标签中打印搜索到的名称的所有频率之和

我的意思是如果我在2012年搜索John并且返回的表格如图所示：

我需要一些带有文字的标签：“ 2012年有27名名叫John的人”要显示的表格

请帮助完成此任务

此致