| info$isDark <- TRUE | info$isDark <- TRUE | ||||
| info$rstudio_style <- "/* rs-theme-is-dark: TRUE */" | info$rstudio_style <- "/* rs-theme-is-dark: TRUE */" | ||||
| } | } | ||||
| rgx_name <- "/\\*\\s*([[:alpha:][:punct:] ]+) by" | |||||
| rgx_name <- "/\\*\\s*([[:alpha:][:digit:][:punct:] ]+) by" | |||||
| info$name <- stringr::str_match(info$attribution, rgx_name)[1, 2] | info$name <- stringr::str_match(info$attribution, rgx_name)[1, 2] | ||||
| info | info | ||||
| } | } |