Update miembros_functions.R

Amend NateAnderson (NA) error
ecoinfAEET · Feb 26, 2025 · d625cac · d625cac
1 parent 5d5d88c
commit d625cac
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/miembros_functions.R b/R/miembros_functions.R
@@ -16,7 +16,9 @@ create_profile_qmd <- function(form.table, row){
   github <- pers.table$`Cuenta de GitHub`
   social <- pers.table$`Cuenta de Bluesky o Twitter`
 
-  github <- ifelse(grepl("https://", github), github, paste0("https://github.com/", github))
+  if(!is.na(github)){
+    github <- ifelse(grepl("https://", github), github, paste0("https://github.com/", github))
+  }
 
   gh.icon <- fontawesome::fa(name = "github",  fill = "#71706F", height = "1em")
   at.icon <- fontawesome::fa(name = "at", fill = "#71706F", height = "1em")