In stibu81/WordBox: A Simple Vocabulary Trainer

library(flexdashboard)
library(shiny)
library(plotly)
library(WordBox)

# read the log
log_file <- getOption("wordbox_log_file")
log_data <- if (!is.null(log_file)) analyse_log(log_file)

# get the list of wordlist files
wordbox_dir <- getOption("wordbox_dir")
wordlist_files <- if (!is.null(wordbox_dir)) {
  list.files(wordbox_dir, pattern = "\\.csv$", full.names = TRUE) %>%
    normalizePath()
}

# wl must be reactive, because reading a wordlist must trigger plotting
wl <- reactiveVal()

# choosing a plot_type effects the inputs
observeEvent(input$plot_type, {
  if (input$plot_type == "log_file") {
    updateSelectizeInput(
      session = session,
      "data",
      "y-Achse:",
      choices = c("Dauer" = "duration",
                  "Anzahl Wörter" = "n_quizzed",
                  "Anzahl richtige Antworten" = "n_correct",
                  "Anzahl falsche Antworten" = "n_wrong")
      )
    updateSelectizeInput(
      session = session,
      "colour",
       choices = c("Datei" = "file",
                   "Richtung" = "direction",
                   "Quiztyp" = "type",
                   "Quizmodus" = "mode",
                     "Gruppe" = "group")
      )
  } else {
    updateSelectizeInput(
      session = session,
      "data",
      "x-Achse:",
      choices = c("Datum" = "date",
                  "Box" = "box",
                  "Gruppe" = "group")
      )
    updateSelectizeInput(
      session = session,
      "colour",
       choices = c("Box" = "box",
                   "Gruppe" = "group")
      )
  }
})

Column {.sidebar}

plot_types <- if (!is.null(log_file)) c("Wordbox-Log" = "log_file")
if (length(wordlist_files) > 0) {
  wordlist_names <- wordlist_files %>%
    basename() %>%
    stringr::str_remove("\\.csv$")
  plot_types <- c(plot_types, setNames(wordlist_files, wordlist_names))
}

selectizeInput("plot_type",
               "Ansicht:",
               choices = plot_types)
# only show the selection box for direction if a wordlist is selected
renderUI({
  if (input$plot_type != "log_file") {
      wl(read_wordlist(input$plot_type))
      langs <- get_languages(wl())
      directions <- setNames(1:2, paste0(langs, " > ", rev(langs)))
      selectizeInput(
        "direction",
        "Richtung:",
        choices = directions
      )
  }
})
# the other inputs are preset for the log analysis plot
selectizeInput("data",
               "y-Achse:",
               choices = c("Dauer" = "duration",
                           "Anzahl Wörter" = "n_quizzed",
                           "Anzahl richtige Antworten" = "n_correct",
                           "Anzahl falsche Antworten" = "n_wrong"))
selectizeInput("colour",
               "Farbe:",
               choices = c("Datei" = "file",
                           "Richtung" = "direction",
                           "Quiztyp" = "type",
                           "Quizmodus" = "mode",
                           "Gruppe" = "group"))

dateRangeInput("date_range",
               "Datum:",
               start = Sys.Date() - 180,
               end = Sys.Date(),
               language = "de",
               format = "dd.mm.yyyy",
               separator = "-",
               weekstart = 1)

Column

renderPlotly({
  if (input$plot_type == "log_file" && input$data != "date") {
    plot_quiz_per_date(log_data,
                       y = input$data,
                       colour = input$colour,
                       language = "de",
                       date_range = input$date_range,
                       interactive = TRUE)
  } else if (!is.null(wl()) && input$direction != "" && input$data != "duration") {
    message(input$direction)
    plot_wordlist_counts(wl(),
                         direction = as.numeric(input$direction),
                         x = input$data,
                         colour = input$colour,
                         date_range = input$date_range,
                         language = "de",
                         interactive = TRUE)
  }
})