Fix duplicated extra fonts in output from template

R/style_xaringan.R

   }
   
   extra_font_imports <- if (is.null(extra_fonts)) "" else list2fonts(extra_fonts)
+  extra_font_imports <- paste(extra_font_imports, collapse = "\n")
   
   # convert NA arguments to NULL
   for (var in f_args) {

inst/scripts/style_xaringan_body.R

 }
 
 extra_font_imports <- if (is.null(extra_fonts)) "" else list2fonts(extra_fonts)
+extra_font_imports <- paste(extra_font_imports, collapse = "\n")
 
 # convert NA arguments to NULL
 for (var in f_args) {