sensible default for body param in setup_theme_function()

inst/scripts/generate_theme_functions.R

   template = template_variables,
   ...,
   file = "",
-  body = NULL
+  body = c(
+    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
+    "  eval(parse(text = call_write_xaringan_theme()))"
+  )
 ) {
   if (file == "clip" && !requireNamespace("clipr", quietly = TRUE)) file <- ""
   tv <- template
   "#' @template mono_light",
   "#' @family Monotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/mono_light.R")
 )
 
   "#' @template mono_dark",
   "#' @family Monotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/mono_dark.R")
 )
 
   "#' @template mono_accent",
   "#' @family Monotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/mono_accent.R")
 )
 
   "#' @template mono_accent_inverse",
   "#' @family Monotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/mono_accent_inverse.R")
 )
 
   "#' @template duo",
   "#' @family Duotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/duo.R")
 )
 
   "#' @template duo_accent",
   "#' @family Duotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/duo_accent.R")
 )
 
   "#' @template duo_accent_inverse",
   "#' @family Duotone themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/duo_accent_inverse.R")
 )
 
   "#' @template solarized_light",
   "#' @family Solarized themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/solarized_light.R")
 )
 
   "#' @template solarized_dark",
   "#' @family Solarized themes",
   "#' @export",
-  body = c(
-    "  # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R",
-    "  eval(parse(text = call_write_xaringan_theme()))"
-  ),
   file = here::here("R/solarized_dark.R")
 )