fix to gemma_kable

PavlidisLab · Feb 14, 2024 · 50fc3db · 50fc3db
1 parent 6426243
commit 50fc3db
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/kable.R b/R/kable.R
@@ -9,9 +9,9 @@ gemma_kable <- function(table){
 
     for(i in seq_len(ncol(table))){
         if(class(table[[i]]) == 'character'){
-            table[[i]][nchar(table[[i]])>30] %>% sapply(function(x){
+            table[[i]][nchar(table[[i]])>30]  <- table[[i]][nchar(table[[i]])>30] %>% sapply(function(x){
                 if(grepl('^http',x)){
-                    x <- glue::glue("{stringr::str_extract(x,'^.*?[.].*?[.]')}../{basename(x)}")
+                    x <- glue::glue("{stringr::str_extract(x,'^.*?[.].*?[./]')}../{basename(x)}")
                 } else{
                     x %>% stringr::str_trunc(30) 
                 }