R/zzz.R

In SMAPPNYU/mediascores: Political Ideology from Online Link-Sharing Data

.onLoad <- function(libname, pkgname) {

    packageStartupMessage('
mediascores: News-sharing Ideology from Online Link-Sharing Data.
Version 0.0.1.9001 (Development Version)
copyright (c) 2024, Gregory Eady, University of Copenhagen
For citation information, type citation("mediascores").')

    # To add new .stan files, first restart R then uncomment below and
    # run devtools::load_all() TWO times.
    
    # source('tools/make_cc.R')
    # stanfiles = list.files('src/stan_files/', pattern = '.stan')
    # setwd('src/')
    # for(f in stanfiles) {
    #    make_cc(paste0('stan_files/', f))
    # }
    # setwd('../')

    modules <- paste0("stan_fit4", names(stanmodels), "_mod")
    for (m in modules) loadModule(m, what = TRUE)
}