R/remove_model_par.R

In andreashandel/modelbuilder: Building Compartmental Simulation Models Without Coding

#' @title A helper function that removes a parameter from the shiny UI elements of the build tab
#'
#' @description This function removes inputs for the last parameter.
#' This is a helper function called by the shiny app.
#' @param values a shiny variable keeping track of UI elements
#' @param output shiny output structure
#' @return No direct return. output structure is modified to contain text for display in a Shiny UI
#' @details This function is called by the Shiny server to produce the Shiny input UI elements for the build tab.
#' @author Andreas Handel
#' @export

remove_model_par <- function(values, output)
{
    removeUI(
      # Alter the slot value to use the paramater indicator instead of the next parameter incrementally
      selector = paste0("#par", values$parInd, 'slot'),
      immediate = TRUE

    ) # End 'removeUI' fxn

} #ends function