leave first import column

stangandaho · Sep 28, 2024 · c4d5e20 · c4d5e20
1 parent 3a67526
commit c4d5e20
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/inst/nimo/server.R b/inst/nimo/server.R
@@ -66,12 +66,10 @@ server <- function(input, output, session) {
   species_data <- reactive({
     if (is.null(input$start_modeling) && input$import_data_check == TRUE) {
     req(data_file_path())
-    data <- read.csv(file = data_file_path(), header = TRUE) %>%
-      dplyr::select(-1)
+    data <- read.csv(file = data_file_path(), header = TRUE)
     } else if (input$start_modeling == 1 && input$import_data_check == TRUE) {
       req(data_file_path())
-      data <- read.csv(file = data_file_path(), header = TRUE) %>%
-        dplyr::select(-1)
+      data <- read.csv(file = data_file_path(), header = TRUE)
     } else if (input$start_modeling == 1 && input$import_data_check == FALSE) {
       data <- gbif_data()[[1]]
     }