R/prepare_drilling_tech_data.R

In KWB-R/dwc.wells: A Package for Condition Predictions for Drinking Water Wells

# prepare_drilling_tech_data ---------------------------------------------------

prepare_drilling_tech_data <- function(path, renamings) {

  # read drilling tech data from csv
  df_drilling_tech <- readr::read_csv(path) %>%
    select_rename_cols(renamings$main,"old_name", "new_name_en")

  # remove NAs
  df_drilling_tech <- df_drilling_tech[!is.na(df_drilling_tech$drilling_method),]

  # remove duplicates
  #df_drilling_tech <- df_drilling_tech[!duplicated(df_drilling_tech),]
  df_drilling_tech <- df_drilling_tech[!duplicated(df_drilling_tech$drilling_id),]

df_drilling_tech$drilling_method
  # regroup and tidy surface waters
  df_drilling_tech <- df_drilling_tech %>%
    dplyr::mutate(drilling_method =
                    rename_values(.data$drilling_method, renamings$drilling_method) %>%
                    tidy_factor)


  # return data frame with relevant columns
  df_drilling_tech[, c("drilling_id", "drilling_method")]

}