私のアプリケーションでは、名前と年を入力し、フィルタリングされたデータセットを画面に返します。アプリケーション 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 年に John という名前の人物が 27 人います」というテキストのラベルが必要です。
このタスクを手伝ってください
よろしく