r - 使用来自 DT 的过滤结果创建文本标签

Question

在我的应用程序中，我输入名称和年份，然后在屏幕中返回过滤后的数据集。下面列出了应用程序 server.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 ”

请帮助完成这项任务

问候