remove left over debugging, formatting

ncss-tech · Jun 17, 2024 · 39cb496 · 39cb496
1 parent 73aa2aa
commit 39cb496
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 5 deletions.
diff --git a/R/plotSPC.R b/R/plotSPC.R
@@ -773,12 +773,18 @@ plotSPC <- function(
   if(id.style == 'auto') {
     sum.ID.str.width <- sum(sapply(pLabels, strwidth, units = 'inches', cex = cex.id, font = 2))
     ID.width.ratio <- sum.ID.str.width  / .par_devWidth
-    print(ID.width.ratio)
 
-    if(ID.width.ratio > 0.7)
+    # debug
+    # print(ID.width.ratio)
+
+    if(ID.width.ratio > 0.7) {
       id.style <- 'side'
-    else
+    }
+
+    else {
       id.style <- 'top'
+    }
+
   }
 
 

diff --git a/misc/sandbox/clarksville.R b/misc/sandbox/clarksville.R
@@ -30,7 +30,7 @@ aggregateColorPlot(a.8, label.cex = 0.65, main = "Clarksville Moist Colors\nGene
 
 # marginal quantiles and L1 median of {L,A,B}
 x <- colorQuantiles(na.omit(pedons$moist_soil_color[which(pedons$genhz == 'Bt')]))
-plotColorQuantiles(x, title = 'Clarksville - Bt')
+plotColorQuantiles(x)
 
 
 ## RI as described in Barron and Torrent, 1986
@@ -40,7 +40,8 @@ pedons$ln_RI <- log(pedons$RI)
 
 hist(pedons$ln_RI)
 
-plot(sample(pedons, 25), color='ln_RI')
+par(mar = c(0, 0, 0, 2))
+plotSPC(sample(pedons, 15), color = 'moist_soil_color', max.depth = 150, width = 0.35, name.style = 'center-center')