Generate c() function code.

generate_c_code.r

library(stringr)

add_backquotes <- function(x) paste0("`", x, "`")
add_doublequotes <- function(x) paste0("\"", x, "\"")

generate_c_code <- function(x){
  vec <- paste0(add_doublequotes(x), sep=",\n")
  vec_tail <- str_replace(tail(vec, 1), ",\n", "\n")
  vec_head <- head(vec, length(vec) - 1)
  vec <- c(vec_head, vec_tail)
  cat("c(\n", vec, ")", sep="")
}
generate_c_code(names(iris))
# c(
# "Sepal.Length",
# "Sepal.Width",
# "Petal.Length",
# "Petal.Width",
# "Species"
# )