R/app_server.R

In shahreyar-abeer/leibniz-psychology_psychtopics: PsychTopics

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  
  r = reactiveValues()
  
  
  ## update the following line by hand
  r$last_updated = "December 8, 2021"
  
  
  r$n_docs_year <- isolate(readRDS("inst/data/n_docs_year.RDS"))
  
  n_docs_year_id <- isolate(readRDS("inst/data/n_docs_year.RDS")) # topic ids instead of labels
  colnames(n_docs_year_id) <- 1:ncol(n_docs_year_id)
  
  K <- ncol(n_docs_year_id) # number of topics
  k <- K # just in case of different variants in the code
  
  r$years <- isolate(readRDS("inst/data/years.RDS")) # a list of publication years
  years = isolate(r$years)
  n_years <- isolate(length(r$years))
  
  r$n_docs_time <- time(n_docs_year_id) # for trend analysis
  r$n_docs_ts <- ts(n_docs_year_id, start = as.integer(years[1])) # Time-series
  
  
  r$topic <- isolate(readRDS("inst/data/topic.RDS")) # a list of topics and top terms
  r$booster <- isolate(readRDS("inst/data/booster.RDS")) # a table with factors for term boosting in PubPsych.eu

  r$n_doc_year = isolate(readRDS("inst/data/n_docs_year.RDS")) %>% 
    as.table() %>% 
    as.data.frame() %>% 
    dplyr::mutate(
      year = as.numeric(as.character(Var1)),
      label = Var2,
      id = rep(1:k, each = n_years),
      Freq = round(Freq, 2)
    )
  r$empirical = isolate(readRDS("inst/data/empirical_year.RDS")) %>% 
    as.table() %>% 
    as.data.frame() %>% 
    dplyr::mutate(
      year = as.numeric(as.character(Var1)),
      label = Var2,
      id = rep(1:k, each = n_years),
      Freq = round(Freq, 2)
    )
  r$topic_evo = isolate(readRDS("./inst/data/topic_evo.RDS"))
  r$topic_evo_concatenated = isolate(readRDS("./inst/data/topic_evo_concatenated.RDS"))
  
  # topic_evo with search link
  r$topic_evo_search <- isolate(readRDS("./inst/data/topic_evo_search.RDS"))
  
  
  
  
  ## ---
  r$current_year = isolate(max(r$years))
  r$start_year = isolate(min(r$years))
  r$start_evo = isolate(min(as.numeric(colnames(r$topic_evo[[1]]))))
  
  
  mod_start_server("start", r)
  mod_browse_topics_server("browse", r)
  mod_popular_by_year_server("popular", r)
  mod_hot_cold_server("hot_cold", r)
  mod_topic_evol_server("topic_evol", r)
  mod_methods_server("methods", r)
  
  router$server(input, output, session)
    
}