R/fct_selectInput_Diameter.R

In ratral/gpvapp: Curves calculation for plunger valves

#' Select Diameter
#'
#' @param id Identification
#'
#' @return selectInput() for UI
#' @export

select_diameter <- function(id){
  dn <- c(200, 250, 300, 350, 400, 450, 500, 600, 700,
          800, 900, 1000, 1200, 1400, 1600, 1800, 2000)
  shiny::selectInput(id, label = "Diameter (mm):", choices = dn)
}