R/fct_cylinder_parameter.R

In ratral/gpvapp: Curves calculation for plunger valves

#' Select cylinder parameter from DB
#'
#' Filter the cylinder parameter for the selected bands.
#' You can use Pattern to look for the bands.
#'
#' @param marke (Brand)
#'
#' @return tibble table with cylinder parameter
#' @export
#' @import dplyr tibble stringr hyd4gpv
#'
#' @examples
#' cylinder_parameter("VAG")

cylinder_parameter <- function(marke) {

  # https://www.r-bloggers.com/2019/08/no-visible-binding-for-global-variable/
  brand <- cyl_name <- kv_b <- kv_d <- kv_e <- zvs <- fls <- NULL

  tibble(get0("gpv_data", envir = asNamespace("hyd4gpv"))) %>%
    dplyr::filter(str_detect(brand, marke)) %>%
    dplyr::select(cyl_name, kv_b, kv_d, kv_e, zvs, fls)
}