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

fix column name

Browse source
This commit is contained in:
dchakro 2021-10-22 10:00:58 +03:00
parent 9984c87c8b
commit d66be42688
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
parse_IUPAC_AAchange.R
View file

@ -33,6 +33,6 @@ parse_IUPAC_AAchange <- function(MutationColumn){
AAPos <- stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[0-9]+") AAPos <- stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[0-9]+")
REF_AA <- stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[ACDEFGHIKLMNPQRSTVWYX]+") REF_AA <- stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[ACDEFGHIKLMNPQRSTVWYX]+")
ALT_AA <- stringi::stri_extract_last_regex(str = MutationColumn,pattern = "[ACDEFGHIKLMNPQRSTVWYX]+") ALT_AA <- stringi::stri_extract_last_regex(str = MutationColumn,pattern = "[ACDEFGHIKLMNPQRSTVWYX]+")
return(data.frame(REF_AA,as.numeric(AAPos),ALT_AA)) return(data.frame(REF_AA,AAPos=as.numeric(AAPos),ALT_AA))
} }