R/remove_model_flow.R

In ahgroup/modelbuilder: Building Compartmental Simulation Models Without Coding

#' @title A helper function that removes a the shiny UI elements for a flow of the build tab
#'
#' @description This function removes inputs for the flows of a specified variable.
#' This is a helper function called by the shiny app.
#' @param values a shiny variable keeping track of UI elements
#' @param input shiny input structure
#' @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_flow <- function(values, input, output)
{

    removeUI(
      # Alter the slot value to use the flow indicator instead of the next flow incrementally
      selector = paste0("#var", values$varInd, "flow", values$flowInd, 'slot'),
      immediate = TRUE
    ) #close removetUI

} #ends function