Updated after review comments from Greg, fixing params with inheritpa…

…rams, updated grid lines for boundingbox.

R/cmtkreg.R

@@ -124,8 +124,6 @@ cmtkreg.filetype <- function(x) {
 #' @param x A cmtk registration (the path to the registration folder on disk) or
 #'   the resulting of reading one in with \code{\link{read.cmtkreg}}.
 #' @param ... Additional arguments passed to \code{\link[rgl]{plot3d}}
-#' @param gridlines Whether to display gridlines when using plotly as the backend plotting
-#' engine (default: \code{FALSE})
 #' @inheritParams plot3d.neuronlist
 #' 
 #' @seealso \code{\link{cmtkreg}}, \code{\link{read.cmtkreg}},

R/dotprops.R

@@ -306,8 +306,6 @@ all.equal.dotprops<-function(target, current, check.attributes=FALSE,
 #'   \code{alpha}
 #' @param ... Additional arguments passed to \code{points3d} and/or 
 #'   \code{segments3d}
-#' @param gridlines Whether to display gridlines when using plotly as the backend plotting
-#' engine (default: \code{FALSE})
 #' @inheritParams plot3d.neuronlist
 #' @return invisible list of results of rgl plotting commands
 #' 

R/hxsurf.R

@@ -357,8 +357,6 @@ write.hxsurf <- function(surf, filename) {
 #'   function that will be called with the number of materials to plot. When
 #'   \code{NULL} (default) will use material colours defined in Amira (if
 #'   available), or \code{rainbow} otherwise.
-#' @param gridlines Whether to display gridlines when using plotly as the backend plotting
-#' engine (default: \code{FALSE})
 #' @param ... Additional arguments passed to \code{triangles3d}
 #' @inheritParams plot3d.neuronlist
 #' @export

R/neuron-plot.R

@@ -19,8 +19,6 @@
 #'   \code{FALSE}). When \code{soma=TRUE} the radius is hard coded to 2.
 #' @param ... Additional arguments passed to \code{\link[rgl]{lines3d}} (and
 #'   \code{\link[rgl]{spheres3d}} if somata are being plotted).
-#' @param gridlines Whether to display gridlines when using plotly as the backend plotting
-#' engine (default: \code{FALSE})
 #' @inheritParams plot3d.neuronlist
 #'
 #' @return list of rgl plotting ids (invisibly) separated into \code{lines},
@@ -554,7 +552,7 @@ plot.neuron <- function(x, WithLine=TRUE, WithNodes=TRUE, WithAllPoints=FALSE,
 #' }
 #' 
 plot3d.boundingbox <- function(x, col='black', 
-                               plotengine = getOption('nat.plotengine'), ...) {
+                               gridlines = FALSE, plotengine = getOption('nat.plotengine'), ...) {
   plotengine <- check_plotengine(plotengine)
   pts <- matrix(c(
   c(x[1, 1], x[1, 2], x[1, 3]),
@@ -588,6 +586,11 @@ plot3d.boundingbox <- function(x, col='black',
         x = ~X, y = ~Y , z = ~Z, 
         hoverinfo = "none", type = 'scatter3d', mode = 'lines',
         opacity = opacity, line=list(color = col, width = width))
+    if(gridlines == FALSE){
+      psh <- psh %>% plotly::layout(scene = list(xaxis=.plotly3d$xaxis,
+                                                 yaxis=.plotly3d$yaxis,
+                                                 zaxis=.plotly3d$zaxis))
+    }
     .plotly3d$plotlyscenehandle <- psh
     psh
   }

inst/WORDLIST

@@ -50,6 +50,7 @@ dfc
 dfs
 dir
 dirname
+DL
 dof
 doi
 donttest
@@ -64,6 +65,7 @@ dZ
 edgelist
 eg
 eigen
+elmr
 Endianness
 EndPoints
 enh
@@ -72,6 +74,7 @@ especiall
 etc
 Evers
 exe
+FAFB
 FCWB
 fftw
 fijitraces