logo

README.md

@@ -2,10 +2,9 @@
 [![R-CMD-check](https://github.com/stangandaho/nimo/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/stangandaho/nimo/actions/workflows/R-CMD-check.yaml)
 [![Code coverage](https://codecov.io/gh/stangandaho/nimo/graph/badge.svg?token=ehmZyEafyI)](https://codecov.io/gh/stangandaho/nimo)
 [![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.10495310.svg)](https://doi.org/10.5281/zenodo.10495310)
-![GitHub Downloads (all assets, all releases)](https://img.shields.io/github/downloads/stangandaho/nimo/total?style=flat&logo=github&label=Downloads&labelColor=3C2308&color=042D0F)
-
 
 
+# nimo <img src="man/figures/logo.png" align="right" height="94" alt="" />
 
 # **`{nimo}`** in brief
 **`nimo`** provides a user-friendly graphical interface that enables users to define complete or partial modeling procedures, including variables, records, algorithms, ensemble methods, and algorithm tuning.  This comprehensive package empowers users to explore, customize, and model their data effectively, with the added benefit of accessing real-world biodiversity data. They can intuitively control the input parameters, explore different modeling options, and observe the corresponding outputs in real-time. This visual and interactive experience enhances the usability and accessibility allowing researchers to focus on their modeling tasks without worrying about complex programming or technical details. It allows users to easily query occurrence data through Global Biodiversity Information Facility [(GBIF)](https://www.gbif.org/occurrence/search) and incorporate it into their modeling workflow. Based on [**`flexsdm`**](https://github.com/sjevelazco/flexsdm/) features and powered by [**`shiny`**](https://github.com/rstudio/shiny), **`nimo`** offers users the flexibility to manipulate and parameterize models. 

inst/nimo/server.R

@@ -1297,6 +1297,7 @@ mperf <- reactive({ sdm_summarize(models = perf_models()) })
 observeEvent(input$merge_model_perf, {
   tryCatch({output$model_perf_merged <- render_dt(mperf())}, error = error)
 })
+
 ## Save performace table
 observe({
   hide("save_model_perf_merged")

inst/nimo/src/handle_sf.R

@@ -37,10 +37,12 @@ geom_gbif <- reactive({
 loc_geom <- reactive({
   query_params <- query_params()# query_params() from ./inst/nimo/src/query_gbif_occ_data.R
   if (nrow(geom_gbif()) > 1) {
-    g <- sf::st_union(geom_gbif()) %>% sf::st_as_sf()
-    geom_wkt <- sf::st_as_text(g$x)
+    g <- sf::st_union(geom_gbif()) %>% st_as_sfc() %>% st_simplify()
+    geom_wkt <- sf::st_as_text(g)
   } else {
-    geom_wkt <- sf::st_as_text(geom_gbif()$geometry)
+    geom_wkt <- sf::st_as_text(geom_gbif() %>%
+                                 dplyr::select(geometry) %>%
+                                 st_as_sfc() %>% st_simplify())
   }
 
   if (!is.null(query_params[["country"]])) {