Fix punct in 'et al.', remove markdown italics signs #40

cboettig · Apr 29, 2013 · 8717207 · 8717207
1 parent 06f72f2
commit 8717207
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/inline_formats.R b/R/inline_formats.R
@@ -54,7 +54,7 @@ format_authoryear_p <- function(entry, char=""){
 #    else if(n==3)
 #      sprintf("%s, %s & %s, %s%s", entry$author[[1]]$family, entry$author[[2]]$family, entry$author[[3]]$family,  entry$year, char)
     else if(n>2)
-      sprintf("%s _et. al._ %s%s", entry$author[[1]]$family, entry$year, char)
+      sprintf("%s et al. %s%s", entry$author[[1]]$family, entry$year, char)
 }
 
 
@@ -75,7 +75,7 @@ format_authoryear_t <- function(entry, char=""){
     else if(n==2)
       sprintf("%s & %s (%s%s)", entry$author[[1]]$family, entry$author[[2]]$family, entry$year, char)
     else if(n>2)
-      sprintf("%s _et. al._ (%s%s)", entry$author[[1]]$family, entry$year, char)
+      sprintf("%s et al. (%s%s)", entry$author[[1]]$family, entry$year, char)
 }