diff --git a/scripts/IUCN_redlist_historyAssesment/IUCN_redlist_historyAssesment.R b/scripts/IUCN_redlist_historyAssesment/IUCN_redlist_historyAssesment.R
index 83b77d51..10877393 100644
--- 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)