test_RLI

PEM-Humboldt · Sep 6, 2024 · 472bbe1 · 472bbe1
1 parent 4ceb657
commit 472bbe1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/IUCN_redlist_historyAssesment/IUCN_redlist_historyAssesment.R b/scripts/IUCN_redlist_historyAssesment/IUCN_redlist_historyAssesment.R
@@ -33,7 +33,7 @@ print(token)
 
 UICN_spList<- data.table::fread(input$species_data) %>% as.data.frame()
 
-IUCN_historyAssesment_data <- pbapply::pblapply(UICN_spList[,input$sp_col][1:10], function(x) {
+IUCN_historyAssesment_data <- pbapply::pblapply(UICN_spList[,input$sp_col], function(x) {
   tryCatch({
     rredlist::rl_history(name = x, key = token)$result %>% 
       dplyr::mutate(scientific_name= x)