#' Animates a plot
#'
#' @param d a preprocessed dataset
#' @param title the plot title
#' @param ... further arguments passed to base_plot
#'
#' @return a gif
#'
#' @examples
#' NULL
animate_plot <- function(d, title = "", ...) {
  static_plot(d, title, ...) +
    transition_states(.frame, 2, 1) +
    enter_fade() +
    exit_fade() +
    ease_aes("sine-in-out")
}


#' Prints the tiles for a processed dataset statically
#'
#' @param d a processed dataset
#' @param title the title of the plot
#' @param text_family the font for the text
#' @param title_family the font for the title
#' @param text_size the size of the text
#' @param title_size the size of the title
#' @param ... further arguments
#'
#' @return a ggplot
#'
#' @examples
#' NULL
static_plot <- function(d, title = "",
                      text_family = "Fira Sans", title_family = "Fira Mono",
                      text_size = 7, title_size = 25, ...) {

  if (!".alpha" %in% names(d)) d <- d %>% mutate(.alpha = 1)
  d <- d %>% mutate(.item_id = paste(.id_long, .col, sep = "-"))

  ggplot(d, aes(x = .x, group = .item_id, y = .y, fill = .color, alpha = .alpha)) +
    geom_tile(width = 0.9, height = 0.9) +
    coord_equal() +
    geom_text(data = d %>% filter(!is.na(.val)), aes(label = .val), color = "white",
              family = text_family, size = text_size) +
    scale_fill_identity() +
    scale_alpha_identity() +
    labs(title = title) +
    theme_void() +
    theme(plot.title = element_text(family = title_family, hjust = 0.5, size = title_size))
}