数値型を文字列に変換して、str_c()とするのも一つの方法だが、{}をつけることで文字列に変換できるのが、glue packageだ
name <- "Fred"
age <- 50
anniversary <- as.Date("1991-10-12")
glue('My name is {name},',
'my age next year is {age + 1},',
'my anniversary is {format(anniversary, "%A, %B %d, %Y")}.')
このような使い方もできる。
library(glue)
x <- c("a", "b", "c", "d")
for(i in x){
write.csv(glue("{i}.csv"))
}