From 2dce354fb9be8007292224402b3a6479ff6f0273 Mon Sep 17 00:00:00 2001
From: Beaudette <dylan.beaudette@usda.gov>
Date: Thu, 3 Oct 2024 14:10:36 -0700
Subject: [PATCH] todo for soil texture colors

---
 R/factor-level-setters.R | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/R/factor-level-setters.R b/R/factor-level-setters.R
index aeb0871e5..8d893c004 100644
--- a/R/factor-level-setters.R
+++ b/R/factor-level-setters.R
@@ -1,6 +1,24 @@
 ##
 ##
 
+
+## TODO: helper function for soil texture color palette
+## final color scheme, after some editing
+# c("s", "ls", "sl", "scl", "l", "sc", "c", "sic", "cl", "sil", "sicl", "si")
+# cols <- c("#BEBEBE", "#FDFD9E", "#ebd834", "#307431", "#CD94EA", "#546BC3", "#92C158", "#EA6996", "#6D94E5", "#4C5323", "#E93F4A", "#AF4732"
+)
+
+# # coordinate with basic and extended soil texture classes via col
+# colorspace::swatchplot(
+#   list(
+#     basic = cols,
+#     extended = colorRampPalette(cols)(21)
+#   )
+# )
+# 
+
+
+
 ## TODO: consider various sorting strategies: WMPD, AWC, {PWP,FC,SAT}
 ## http://ncss-tech.github.io/AQP/aqp/water-retention-curves.html