R/view_settings.R

In knifecake/forrelgui: Exclusion Power GUI for the forrel package

settings_view <- function(parent = NULL) {
  label_size = list(width=60)
  w <- gWidgets2::gwindow(title = 'Settings', parent = parent, visible = FALSE)
  rows <- gWidgets2::gvbox(container = w)

  # allele number threshold for exact calculations
  grp <- gWidgets2::ggroup(container = rows)
  label <- gWidgets2::glabel('Maximum number of alleles for exact calculation', container = grp)
  gWidgets2::size(label) <- label_size
  gui$exactMaxL <- gWidgets2::gedit(container = grp)
  
  # number of simulations
  grp <- gWidgets2::ggroup(container = rows)
  label <- gWidgets2::glabel('Number of simulations', container = grp)
  gWidgets2::size(label) <- label_size
  gui$nsim <- gWidgets2::gedit(container = grp)
  
  # simulation seed
  grp <- gWidgets2::ggroup(container = rows)
  label <- gWidgets2::glabel('Seed for random number generation', container = grp)
  gWidgets2::size(label) <- label_size
  gui$seed <- gWidgets2::gedit(container = grp)
  
  grp <- gWidgets2::ggroup(container = rows)
  gWidgets2::addSpring(grp)
  gWidgets2::gbutton('Apply', container = grp, handler = function(h) {
    set_settings(
      exactMaxL = gWidgets2::svalue(gui$exactMaxL),
      nsim = gWidgets2::svalue(gui$nsim),
      seed = gWidgets2::svalue(gui$seed)
    )
    gWidgets2::dispose(w)
  })
  
  update_settings_view()
  
  gWidgets2::visible(w) <- TRUE
}

update_settings_view <- function() {
  settings <- get_settings()
  gWidgets2::svalue(gui$exactMaxL) <- settings$exactMaxL
  gWidgets2::svalue(gui$nsim) <- settings$nsim
  gWidgets2::svalue(gui$seed) <- settings$seed
}