Test

R/nsurface.r

@@ -1,10 +1,10 @@
 nsurface <- function(a, b, c, d) {
-	a <- seq(from = 1, to = a, by = d)
-	b <- seq(from = 1, to = b, by = d)
-	c <- seq(from = 1, to = c, by = d)
+	a <- seq(from = 0, to = a, by = d)
+	b <- seq(from = 0, to = b, by = d)
+	c <- seq(from = 0, to = c, by = d)
 	faces_xy <- expand.grid(x = a, y = b, z = c(min(c), max(c)))
 	faces_xz <- expand.grid(x = a, y = c(min(b), max(b)), z = c)
 	faces_yz <- expand.grid(x = c(min(a), max(a)), y = b, z = c)
 	surface <- unique(rbind(faces_xy, faces_xz, faces_yz))
 	return(surface)
-}
+}

inst/QA3D/server/julia.r

@@ -1,3 +1,3 @@
-showModal(modalDialog(title = "Loading Analytical environment...", easyClose = FALSE, footer = NULL))
+showModal(modalDialog(title = "Loading analytical environment...", easyClose = FALSE, footer = NULL))
 JV <- JuliaSetup(add_cores = detectCores()-1, libraries = TRUE, source = TRUE)
 removeModal()