adding import, docs

NAMESPACE

@@ -250,6 +250,7 @@ importFrom(graphics,abline)
 importFrom(graphics,arrows)
 importFrom(graphics,axis)
 importFrom(graphics,box)
+importFrom(graphics,grconvertX)
 importFrom(graphics,grid)
 importFrom(graphics,image)
 importFrom(graphics,legend)

R/aqp-package.R

@@ -27,7 +27,7 @@
 #' @keywords package
 #' @import data.table
 #' @importFrom grDevices chull col2rgb colorRamp colorRampPalette colors convertColor grey hsv rgb rgb2hsv
-#' @importFrom graphics abline arrows axis box grid image legend lines mtext par points polygon rect segments strheight strwidth text
+#' @importFrom graphics abline arrows axis box grid image legend lines mtext par points polygon rect segments strheight strwidth text grconvertX
 #' @importFrom methods setClass setOldClass representation prototype new isGeneric setGeneric setReplaceMethod setMethod .hasSlot as new slot slot<- slotNames
 #' @importFrom stats TukeyHSD aggregate aov approxfun as.dist as.formula cmdscale complete.cases dist formula median model.frame na.omit na.pass quantile rnorm runif sd splinefun terms update weighted.mean
 #' @importFrom utils object.size packageVersion

R/plotSPC.R

@@ -35,7 +35,7 @@
 #' @param hz.depths.lines logical, draw segments between horizon depth labels and actual horizon depth; this is useful when including horizon boundary distinctness and/or `fixLabelCollisions = TRUE`
 #'
 #' @param depth.axis logical or list. Use a logical to suppress (`FALSE`) or add depth axis using defaults (`TRUE`). Use a list to specify one or more of: 
-#'  - `style`: 'compact', 'traditional'
+#'  - `style`: 'traditional', 'compact', 'tape'
 #'  - `line`: numeric, negative values move axis to the left
 #'  - `cex`: scaling applied to entire depth axis
 #'  - `interval`: axis interval
@@ -1592,6 +1592,7 @@ plotSPC <- function(
     depth_axis_labels <- paste(depth_axis_intervals, depth_units(x))
 
     # draw axis
+    # pass-in `n` (number of profiles or horizontal space) for placement of 'tape' style
     .drawDepthAxis(
       style = depth.axis[['style']],
       .at = depth_axis_tick_locations, 

R/sketch-utils.R

@@ -37,6 +37,17 @@
 
 
 
+#' @title Draw a depth axis along side soil profile sketches
+#'
+#' @param style character, depth axis style
+#' @param .at numeric vector, depth axis annotation coordinates
+#' @param .labels character vector, tick mark labels
+#' @param .line numeric, line offset for horizontal placement of axis
+#' @param .cex numeric, scaling factor for axis
+#' @param .n integer, horizontal space allocated for profile sketches (used for placement of 'tape' style depth axis)
+#' 
+#' @noRd
+#' @return nothing, low-level plotting function
 .drawDepthAxis <- function(style = c('compact', 'traditional', 'tape'), .at, .labels, .line, .cex, .n) {
 
   # launder / check style