fix: Add missing dot to regex

Author: jvfe

bin/gen_tx2gene.r

@@ -26,8 +26,8 @@ txdf <- AnnotationDbi::select(
 tab <- table(txdf$GENEID)
 txdf$ntx <- tab[match(txdf$GENEID, names(tab))]
 
-txdf$TXNAME <- gsub("\\.*", "",  txdf$TXNAME)
-txdf$GENEID <- gsub("\\.*", "",  txdf$GENEID)
+txdf$TXNAME <- gsub("\\..*", "",  txdf$TXNAME)
+txdf$GENEID <- gsub("\\..*", "",  txdf$GENEID)
 
 tx2gene <- data.frame(
     tx = txdf$TXNAME,