Update merge_surnames.R

Made minor change to merge_surnames.R to prevent NOTE during R CMD check --as-cran
kosukeimai · Mar 4, 2017 · 6410174 · 6410174
1 parent 54663ca
commit 6410174
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/merge_surnames.R b/R/merge_surnames.R
@@ -60,9 +60,11 @@ merge_surnames <- function(voter.file, surname.year = 2010, clean.surname = T, i
 
   ## Census Surname List
   if (surname.year == 2000) {
+    surnames2000$surname <- as.character(surnames2000$surname)
     surnames <- surnames2000
+  } else {
+    surnames$surname <- as.character(surnames$surname)
   }
-  surnames$surname <- as.character(surnames$surname)
 
   p_eth <- c("p_whi", "p_bla", "p_his", "p_asi", "p_oth")