diff --git a/R/alignment.R b/R/alignment.R
index f3be1b3..bf04801 100644
--- a/R/alignment.R
+++ b/R/alignment.R
@@ -74,7 +74,7 @@
 #'     print(include.rownames = FALSE)
 #' }
 alignment <- function(x, left = 'left', right = ifelse(left == 'l', 'r', 'right'),
-    additional.numeric = "^((<b>(&ndash;|\\+)</b>)|<[0-9.%-]+)|(<?\\$?\\s*\\d+[KBM]))$", sep = NULL, ...){
+    additional.numeric = "^((<b>(&ndash;|\\+)</b>)|(<?([0-9.%-]+)|(\\$?\\s*\\d+[KBM])))$", sep = NULL, ...){
 
     stopifnot(is.data.frame(x))
 
diff --git a/man/alignment.Rd b/man/alignment.Rd
index 4b172c4..920bf07 100644
--- a/man/alignment.Rd
+++ b/man/alignment.Rd
@@ -5,7 +5,7 @@
 \title{Detect Column Alignment}
 \usage{
 alignment(x, left = "left", right = ifelse(left == "l", "r", "right"),
-  additional.numeric = "^((<b>(&ndash;|\\\\+)</b>)|<[0-9.\%-]+)|(<?\\\\$?\\\\s*\\\\d+[KBM]))$",
+  additional.numeric = "^((<b>(&ndash;|\\\\+)</b>)|(<?([0-9.\%-]+)|(\\\\$?\\\\s*\\\\d+[KBM])))$",
   sep = NULL, ...)
 }
 \arguments{