R/get_bid.R

In elmstedt/autograder: Autograding Functions for UCLA Stats 20

#' Title
#'
#' @param r
#'
#' @return
#' @export
#'
#' @examples
#' @importFrom stringr str_extract_all str_trim
#' @importFrom dplyr "%>%"
get_bid <- function(r) {
  suppressWarnings(r %>%
                     stringr::str_extract_all("\\d{9}(?=\\/)") %>%
                     unlist() %>%
                     stringr::str_trim())
}