12  roxy_tag_parse.roxy_tag_memo()

Diagram

Code

roxy_tag_parse.roxy_tag_memo <- function(x) {
  tmp1 <- stringr::str_locate(x$raw, "\\.")[1,][1]
  x$val <- list(
    # header = x$raw,
    # message = x$raw
    header = paste0("step", stringr::str_sub(x$raw, end = tmp1 - 1)),
    message = stringr::str_sub(x$raw, start = tmp1 + 2)
  )
  x
}