Merge pull request #100 from bjedwards/master

Fixes reference issue in `suffix_extract`
Ironholds · Oct 18, 2019 · dc3768b · dc3768b
2 parents a4d88fc + 6d08a1d
commit dc3768b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/suffix.R b/R/suffix.R
@@ -139,7 +139,7 @@ suffix_extract <- function(domains, suffixes = NULL){
     # check if suffixes is a data.frame, and stop if column not found
     if(is.data.frame(suffixes)) {
       if ("suffixes" %in% colnames(suffixes)) {
-        suffixes <- suffixes$suffixes
+        suffixes <- suffixes[["suffixes", exact=FALSE]]
       } else {
         stop("Expected column named \"suffixes\" in suffixes data.frame")
       }