update

LingConLab · Mar 28, 2024 · 01c0715 · 01c0715
1 parent 14d7640
commit 01c0715
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/data/database.xlsx b/data/database.xlsx
diff --git a/scripts/cleaning_data_for_database.R b/scripts/cleaning_data_for_database.R
@@ -207,3 +207,6 @@ read_csv("data/database.csv") |>
          feature_lexeme = str_replace_all(feature_lexeme, "'", "’")) |> 
   write_csv("data/database.csv", na = "")
 
+read_csv("data/database.csv") |> 
+  writexl::write_xlsx("data/database.xlsx")
+
diff --git a/scripts/visualize.R b/scripts/visualize.R
@@ -155,7 +155,7 @@ combn(unique(df$settlement), 2) |>
   villages
 
 map_dfr(1:nrow(villages), function(i){
-  village_pair <- unlist(villages[1,])
+  village_pair <- unlist(villages[i,])
 
   df |> 
     filter(!(value %in% c("NO DATA", "OTHER")),