R/names_df.R

In licoread: Reads Raw Files from Li-COR Gas Analyzers

#' to get a vector of names of a df, matching a regex
#' @param df the df to get the names from
#' @param regname the regex expression to match
#' @return a df with the names of the meta df
#' @importFrom stringr str_extract
#' @importFrom stats na.omit

names_df <- function(
  df,
  regname = "name\\d"
) {
  names_df <- names(df) |>
    str_extract(regname) |>
    na.omit() |>
    as.character()

  names_df
}