R/helpers.R

In monikachudek/shimex: Shiny Models Explorer

.create_global <- function(selected_explainers){

  global <- "
  library(iml)
  library(shinycssloaders)

  load('data.RData')"
  
  iml <- "
  library(iml)
  predictor <- Predictor$new(explainer$model, data = data, y = y)
  "
  if(any(grepl('iml', selected_explainers))) global <- paste(global, iml)

  return(global)

}


.write_files  <- function(mainDir, ui, server, global, www){

  write(ui, file.path(mainDir, 'ui.R'))
  write(server, file.path(mainDir, 'server.R'))
  write(global, file.path(mainDir, 'global.R'))

  if(!dir.exists(file.path(mainDir, '/www'))) dir.create(file.path(mainDir, '/www'))
  write(www, file.path(mainDir, '/www/style.css'))

}