Merge pull request #342 from 4DModeller/338-shiny-app-in-mesh-building-tutorial-is-stuck

Shiny app in mesh building tutorial is stuck

Author: mnky9800n

R/shiny_meshbuilder.R

@@ -55,10 +55,10 @@ meshbuilder_shiny <- function(
     stop("Cannot read latitude and longitude data from spatial data. Please ensure given names are correct.")
   }
 
-  default_max_edge_min <- 0.01
-  default_max_edge_max <- 0.3
+  default_max_edge_min <- 0.9
+  default_max_edge_max <- 1.8
   default_offset_min <- 0.02
-  default_offset_max <- 0.2
+  default_offset_max <- 2
   default_cutoff <- 0.02
   # TODO - these defaults need changing?
   if (!is.null(max_edge)) {
@@ -234,7 +234,7 @@ meshbuilder_shiny <- function(
         spatial_data
       }
     })
-
+    
     output$map <- leaflet::renderLeaflet({
       map_tiles <- c("OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap")
       m <- mapview::mapview(mesh_spatial(), layer.name = "Mesh", col.regions = "#548C2F", map.types = map_tiles) + mapview::mapview(spatial(), layer.name = "Spatial")

vignettes/meshbuilder.Rmd

@@ -54,7 +54,7 @@ sp_data <- fdmr::load_tutorial_data(dataset = "covid", filename = "spatial_data.
 head(sp_data)
 ```
 
-The `sp_data` object is a `SpatialPolygonsDataFrame` containing 6789 features for areas of England. This object contains all the  contains all the values we
+The `sp_data` object is a `SpatialPolygonsDataFrame` containing 6789 features for areas of England. This object contains all the values we need to build a mesh.
 We can build a mesh by passing `sp_data` to the `mesh_builder` function.
 
 ```{r eval=FALSE}