Remove useless functions and update documentation

NAMESPACE

@@ -22,6 +22,8 @@ importFrom(grDevices,dev.off)
 importFrom(grDevices,png)
 importFrom(htmlwidgets,getDependency)
 importFrom(methods,is)
+importFrom(methods,new)
+importFrom(methods,setRefClass)
 importFrom(miniUI,gadgetTitleBar)
 importFrom(miniUI,miniContentPanel)
 importFrom(miniUI,miniPage)

R/mwServer_helpers.R

@@ -1,90 +1,3 @@
-#' Dynamically show/hide controls in the UI
-#'
-#' @param .display expression that evaluates to a named list of boolean
-#' @param desc subset of controls$desc containing only shared inputs and inputs
-#'   for the current module
-#' @param session shiny session
-#' @param env module environment
-#'
-#' @noRd
-showHideControls <- function(desc, session, env) {
-  displayBool <- lapply(desc$display, eval, envir = env)
-  for (i in seq_along(displayBool)) {
-    if (is.logical(displayBool[[i]])) {
-      shiny::updateCheckboxInput(
-        session,
-        inputId = paste0(desc$inputId[i], "_visible"),
-        value = displayBool[[i]]
-      )
-    }
-  }
-}
-
-#' Dynamically set input parameters like choices, minimal or maximal values, etc.
-#'
-#' @param .updateInputs expression that evaluate to a named list of lists
-#' @inheritParams showHideControls
-#'
-#' @return data.frame 'desc' with updated column params
-#' @noRd
-updateControls <- function(desc, session, env) {
-
-  for (i in seq_len(nrow(desc))) {
-    newParams <- evalParams(desc$params[[i]], env)
-
-    args <- list(session = session, inputId = desc$inputId[i])
-    updateRequired <- FALSE
-
-    for (p in setdiff(names(newParams), c("value", "label"))) {
-      if (identical(newParams[[p]], desc$currentParams[[i]][[p]])) {
-        next
-      }
-
-      updateRequired <- TRUE
-      args[[p]] <- newParams[[p]]
-
-      # Special case: update value of select input when choices are modified
-      if (p == "choices" & desc$type[i] == "select") {
-        actualSelection <- get(desc$name[i], envir = env)
-        if (desc$multiple[[i]]) {
-          args$selected <- intersect(actualSelection, newParams[[p]])
-        } else {
-          if (actualSelection %in% newParams[[p]]) {
-            args$selected <- actualSelection
-          }
-        }
-      }
-
-      desc$currentParams[[i]][[p]] <-  newParams[[p]]
-    }
-
-    if (updateRequired) {
-      updateInputFun <- getUpdateInputFun(desc$type[i])
-      do.call(updateInputFun, args)
-    }
-  }
-
-  desc
-}
-
-#' Private function that returns the function to use to update some type of inputs
-#' @noRd
-getUpdateInputFun <- function(type) {
-  switch(
-    type,
-    slider = shiny::updateSliderInput,
-    text = shiny::updateTextInput,
-    numeric = shiny::updateNumericInput,
-    password = shiny::updateTextInput,
-    select = shiny::updateSelectInput,
-    checkbox = shiny::updateCheckboxInput,
-    radio = shiny::updateRadioButtons,
-    date = shiny::updateDateInput,
-    dateRange = shiny::updateDateRangeInput,
-    checkboxGroup = shiny::updateCheckboxGroupInput
-  )
-}
-
 #' Function called when user clicks on the "Done" button. It stops the shiny
 #' gadget and returns the final htmlwidget
 #'

README.Rmd

@@ -95,14 +95,15 @@ myPlotFun <- function(distribution, range, title) {
     value = randomFun(n = diff(range) + 1)
   )
   combineWidgets(
-    ncol = 2, colsize = c(2, 1),
+    ncol = 1, rowsize = c(2, 1),
     dygraph(myData, main = title),
     combineWidgets(
+      ncol = 2,
       plot_ly(x = myData$value, type = "histogram"),
       paste(
-        "The graph on the left represents a random time series generated using a <b>",
+        "The graph above represents a random time series generated using a <b>",
         distribution, "</b>distribution function.<br/>",
-        "The chart above represents the empirical distribution of the generated values."
+        "The chart on the left represents the empirical distribution of the generated values."
       )
     )
   )