R/fct_selectInput_Cylinder.R

In ratral/gpvapp: Curves calculation for plunger valves

#' Select Diameter
#'
#' @param id Identification
#' @param marke "VAG","ERHARD","AVK", "ACMO"
#'
#' @return selectInput for UI
#' @export

select_cylinder <- function(id, marke){
  gpv_data    <- cylinder_parameter(marke)
  cylindertyp <- unique(gpv_data$cyl_name)
  shiny::selectInput(id, label = "Cylinder Typ:", choices = cylindertyp )
}