made 'trekcolors' optional

stla · Jun 30, 2023 · 9072b24 · 9072b24
1 parent 761b484
commit 9072b24
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 8 deletions.
diff --git a/R/gyro.R b/R/gyro.R
@@ -352,10 +352,14 @@ gyrocentroid <- function(A, B, C, s = 1, model = "U"){
 #' shade3d(ABC, color = "navy", specular = "cyan")}
 #'
 #' # using a color palette ####
-#' library(trekcolors)
+#' if(require("trekcolors")) {
+#'   pal <- trek_pal("klingon")
+#' } else {
+#'   pal <- hcl.colors(32L, palette = "Rocket")
+#' }
 #' ABC <- gyrotriangle(
 #'   A, B, C, s = 0.5,
-#'   palette = trek_pal("klingon"), bias = 1.5, interpolate = "spline"
+#'   palette = pal, bias = 1.5, interpolate = "spline"
 #' )
 #' \donttest{open3d(windowRect = c(50, 50, 562, 562))
 #' view3d(zoom = 0.75)

diff --git a/R/hdelaunay.R b/R/hdelaunay.R
@@ -153,7 +153,11 @@ hdelaunay <- function(
 #'
 #' # example with colors given by a function ####
 #' library(gyro)
-#' library(trekcolors)
+#' if(require("trekcolors")) {
+#'   pal <- trek_pal("klingon")
+#' } else {
+#'   pal <- hcl.colors(32L, palette = "Rocket")
+#' }
 #'
 #' phi <- (1 + sqrt(5)) / 2
 #' theta <- head(seq(0, pi/2, length.out = 11), -1L)
@@ -167,7 +171,7 @@ hdelaunay <- function(
 #' hdel <- hdelaunay(pts, model = "M")
 #'
 #' fcolor <- function(t){
-#'   RGB <- colorRamp(trek_pal("klingon"))(t)
+#'   RGB <- colorRamp(pal)(t)
 #'   rgb(RGB[, 1L], RGB[, 2L], RGB[, 3L], maxColorValue = 255)
 #' }
 #'

diff --git a/man/gyrotriangle.Rd b/man/gyrotriangle.Rd
diff --git a/man/plotHdelaunay.Rd b/man/plotHdelaunay.Rd