R/server_helpers.R

In jemus42/attrakttv: A Shiny Application for 'trakt.tv' TV Show Data

#' Append hovertext to episodes df
#'
#' @param episodes A tbl as it will arrive in `renderPlotly`
#'
#' @return The same tbl with a new column `hovertext`
#' @export
#' @importFrom glue glue
#' @importFrom dplyr mutate
make_hoverinfo <- function(episodes) {
  episodes %>%
    mutate(hovertext = glue::glue("
      <b>{season_title}</b>
      Episode {episode}: “{title}”
      <b>Runtime</b>: {runtime} mins
      <b>Aired</b>: {first_aired}
      <b>Rating</b>: {round(rating, 2)} (<i>\u201c{rating_label(rating)}\u201d</i>)
      Based on {votes} votes.
    "))
}