Buck9195/shared_Rscripts
1
0
Fork 0
mirror of https://github.com/dchakro/shared_Rscripts.git synced 2026-05-17 09:12:16 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Switch to stringi to improve performance.

Browse source
This commit is contained in:
Deepankar Chakroborty 2020-07-29 14:41:00 +03:00
parent 99a6589b9b
commit 631eef6e8b
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
MutSiteFind.R
View file

@ -18,14 +18,8 @@ dependencies <- c("stringi")
missing_packages <- dependencies[!(dependencies %in% installed.packages()[, "Package"])] missing_packages <- dependencies[!(dependencies %in% installed.packages()[, "Package"])]
if(length(missing_packages)) install.packages(missing_packages) if(length(missing_packages)) install.packages(missing_packages)
## ----- Legacy version relying on r::base -------- MutSiteFind <- function(MutationColumn){
MutSiteFind.legacy=function(MutationColumn){ return(unlist(x = stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[[:digit:]]+"), use.names = F))
MutationSite=c()
for(i in seq(1:length(MutationColumn))){
Site=regmatches(MutationColumn[i], gregexpr("[[:digit:]]+",MutationColumn[i]))[[1]][1]
MutationSite=c(MutationSite,Site)
}
return(MutationSite)
} }