R/ZeroPadding.R

In legenepi/exceed-pipelines: Reusable pipelines for the EXCEED study

ZeroPadding <- R6::R6Class(
  "ZeroPadding",
  inherit = exceedapi::Step,

  public = list(

    #' transform the data by zero-padding the exceed_id
    transform = function(.data, ...) {
      mutate(.data, exceed_id = str_pad(exceed_id, 6, pad = 0))
    }

  )
)