R/mod_scores_stats.R

In DivadNojnarg/deminR: deminR

#' scores_stats UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#' @param r cross module variable
#' @param scores Scores raw data
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
#' @import mobileCharts
mod_scores_stats_ui <- function(id){
  ns <- NS(id)
  
  cardItems <- tagList(
    f7Card(
      title = tagList(
        "Props",
        f7Radio(
          inputId = ns("propsCol"),
          label = "",
          choices = c("difficulty", "device"),
          selected = "difficulty"
        )
      ),
      mobileOutput(ns("propsChart"))
    ),
    f7Card(
      title = "Clicks",
      mobileOutput(ns("clicksChart"))
    ),
    f7Card(
      title = "Scores",
      mobileOutput(ns("scoresChart"))
    ),
    f7Card(
      title = "Efficacy Index",
      mobileOutput(ns("efficacyChart"))
    )
  )
  
  f7Tab(
    tabName = "Stats",
    icon = f7Icon("chart_bar_square", old = FALSE),
    active = FALSE,
    lapply(cardItems, tagAppendAttributes, class = "swiper-no-swiping")
  )
}
    
#' scores_stats Server Function
#'
#' @noRd 
mod_scores_stats_server <- function(input, output, session, r, scores){
  ns <- session$ns
  
  props <- reactive({
    req(scores())
    scores() %>% 
      count(.data[[input$propsCol]]) %>%
      mutate(props = n / nrow(scores()) * 100) %>%
      mutate(x = "1")
  })
  
  # difficulty level props
  output$propsChart <- render_mobile({
    req(props())
    mobile(props(), aes(x, props, color = .data[[input$propsCol]], adjust = 'stack')) %>% 
      mobile_bar() %>% 
      mobile_coord("polar", transposed = TRUE) %>% 
      mobile_hide_axis() %>%
      mobile_interaction("pie-select")
  })
  
  # n clicks distribution
  output$clicksChart <- render_mobile({
    req(scores())
    
    # filter by category
    df <- scores() %>% 
      filter(difficulty == r$settings$Level) %>%
      count(clicks)
    
    mobile(df, aes(x = clicks, y = n)) %>% 
      mobile_bar() %>% 
      mobile_interaction("bar-select") #%>% # highlight on select
      #mobile_interaction("pan", limitRange = lmt) %>% 
      #mobile_scroll(mode = "x", xStyle = list(offsetY = -5))
  })
  
  # scores by device distribution
  output$scoresChart <- render_mobile({
    req(scores())
    
    df <- scores() %>% 
      filter(difficulty == r$settings$Level) %>%
      group_by(gr=cut(score, breaks= seq(0, 1000, by = 4), right = FALSE)) %>% 
      summarise(n= n()) %>%
      right_join(data.frame(gr = unique(cut(1:1000, breaks= seq(0, 1000, by = 4), right = FALSE)))) 
    
    df <- df[1:max(which(!is.na(df$n))),]

    mobile(df, aes(x = gr, y = n)) %>%
      mobile_bar() %>%
      mobile_interaction("bar-select") %>%
      mobile_coord("rect", transposed = TRUE)
    
  })
  
  
  # score/click ratio by category
  output$efficacyChart <- render_mobile({
    req(scores())
    eff_data <- scores() %>% 
      filter(difficulty == r$settings$Level) %>%
      mutate(efficacy = score / clicks)
    mobile(eff_data, aes(x = nickname, y = efficacy)) %>% 
      mobile_point(color = "red") %>%
      mobile_tooltip(snap = TRUE) %>%
      mobile_coord("rect", transposed = TRUE)
  })
  
  # observe(print(scores()))
}
    
## To be copied in the UI
# mod_scores_stats_ui("scores_stats_ui_1")
    
## To be copied in the server
# callModule(mod_scores_stats_server, "scores_stats_ui_1")