# LSAs
library("magrittr")
lulsa <- tibble::tribble(
~LSA, ~REGION, ~LSA_region, ~Zone, ~System, ~R, ~G, ~B, ~A
,"HF","Hills and Fleurieu","Hills and Fleurieu", "Agricultural", "High-rainfall", 89, 23, 138, 255
,"AW","Alinytjara Wilurara","Alinytjara Wilurara", "Arid", "Arid", 191, 54, 44, 255
,"EP","Eyre Peninsula","Eyre Peninsula", "Agricultural", "Low-rainfall", 86, 156, 190, 255
,"KI","Kangaroo Island","Kangaroo Island", "Agricultural", "High-rainfall", 0, 137, 152, 255
,"NY","Northern and Yorke","Northern and Yorke", "Agricultural", "Low-rainfall", 248, 185, 44, 255
,"SAAL","South Australian Arid Lands","South Australian Arid Lands", "Arid", "Arid", 213, 94, 0, 255
,"MR","Murraylands and Riverland","Murraylands and Riverland", "Agricultural", "Low-rainfall", 0, 132, 197, 255
,"LC","Limestone Coast","Limestone Coast","Agricultural", "High-rainfall", 102, 181, 98, 255
,"GA","Green Adelaide","Green Adelaide","Urban","High-rainfall", 34, 139,34, 255
) %>%
dplyr::mutate(across(where(is.character),~gsub("Wilur|Wilu\\?",paste0("Wilu","\u1E5F"),.)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.