static_table: fixed handling of organism

saezlab · Sep 18, 2023 · 21d7b9a · 21d7b9a
1 parent cc7636e
commit 21d7b9a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/static.R b/R/static.R
@@ -138,7 +138,7 @@ static_table <- function(
          'experiencing issues.'
     )
 
-    organism %<>% as.character %>% as.integer
+    organism %<>% as.integer %>% as.character
 
     query_l <- str_to_lower(query)
     resource_l <- str_to_lower(resource)
@@ -153,7 +153,7 @@ static_table <- function(
     filter(
         query == query_l &
         str_to_lower(resource) == resource_l &
-        organism == organism
+        organism == .env$organism
     ) %>%
     {`if`(
         nrow(.) < 1L,