Fixed bug with USA becoming Usa

ggautreau · May 9, 2020 · 665a52d · 665a52d
1 parent c62a15b
commit 665a52d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/test_server_nofile.R b/test_server_nofile.R
@@ -22,6 +22,7 @@ server <- function(input, output, session) {
       Unique_CountryName_full <- read.csv("Unique_CountryName_full.csv", header = T, stringsAsFactors = F)$x
     }else{
       Unique_CountryName_full <- unique(toTitleCase(tolower(data$Country)))
+      Unique_CountryName_full[Unique_CountryName_full=="Usa"] <- "USA"
       Unique_CountryName_full <- sort(Unique_CountryName_full[Unique_CountryName_full!=""])
       Unique_CountryName_full <- c(Unique_CountryName_full, "World")
       #execute the following line to speed up the process (not generate country names at every run)