sep trait names from hidden records count

Bdishman23 · Jun 24, 2022 · 61ba815 · 61ba815
1 parent cf09b7d
commit 61ba815
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/eoldata.R b/R/eoldata.R
@@ -19,8 +19,11 @@ eol_data <- function(species) {
 	all_ul <-  rvest::html_elements(input,'ul')
 	trait_ul <- all_ul[[5]]
 	trait_list_text <- rvest::html_text2(rvest::html_nodes(trait_ul, "div"))
+	#space between letters and numbers
+    trait_list_text <- gsub("([0-9]*) records hidden", " \\1 records hidden", trait_list_text)
+  	trait_list_text <- gsub("([0-9]*) record hidden", " \\1 record hidden", trait_list_text)
 	trait_list_text <- gsub('\\d* record hidden \\— show all', "", trait_list_text)
-	trait_list_text <- gsub('\\d* records hidden \\— show all', "", trait_list_text)
+	trait_list_text <- gsub('\\d* records hidden \\— show all', "", trait_list_text) # nolint
 
 	trait_list_text <- gsub('\nshow all records', "", trait_list_text)
 	trait_list_raw <- as.character(rvest::html_nodes(trait_ul, "div"))
@@ -48,4 +51,4 @@ eol_data <- function(species) {
 		}
 	}
 	return(trait_df)
-}
+}