From d66be4268859379fb418998411d36286339cb0b7 Mon Sep 17 00:00:00 2001
From: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Fri, 22 Oct 2021 10:00:58 +0300
Subject: [PATCH] fix column name

---
 parse_IUPAC_AAchange.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parse_IUPAC_AAchange.R b/parse_IUPAC_AAchange.R
index f644edf..8f67d51 100644
--- a/parse_IUPAC_AAchange.R
+++ b/parse_IUPAC_AAchange.R
@@ -33,6 +33,6 @@ parse_IUPAC_AAchange <- function(MutationColumn){
   AAPos <- stringi::stri_extract_first_regex(str = MutationColumn,pattern = "[0-9]+")
   REF_AA <- stringi::stri_extract_first_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))
   
 }
\ No newline at end of file