|
|
|
@@ -141,11 +141,10 @@ bar_plot_fractions <- function(tb, |
|
|
|
#' |
|
|
|
#' @param res List of Tibbles to be analysed. |
|
|
|
#' @param patterns Words to look up. |
|
|
|
#' @param name ? |
|
|
|
#' @param tidy default is FALSE. |
|
|
|
#' |
|
|
|
#' @export |
|
|
|
word_usage_by_date <- function(res, patterns, name, tidy=F) { |
|
|
|
word_usage_by_date <- function(res, patterns, tidy=F) { |
|
|
|
tb <- res$talks |
|
|
|
nms <- names(patterns) |
|
|
|
for (i in seq_along(patterns)) { |
|
|
|
|