glue string as vector

[nithinmkp]

I want to get the result of a glue_collapse as character vector. For an example

library(palmerpenguins)
tibble(species=unique(penguins$species),
       color=c("#FF6600","#047075","#C25BCC"))%>%
        glue_data('"{species}"="{color}"') |> 
        glue_collapse(sep = ",") 

My expected output is c("Adelie"="#FF6600", "Gentoo"="#047075","Chinstrap="#C25BCC")
current output: "Adelie"="#FF6600","Gentoo"="#047075","Chinstrap"="#C25BCC"

[Flm]

This could be a solution

a <- tibble(species=unique(penguins$species),
       color=c("#FF6600","#047075","#C25BCC"))%>%
  glue_data('"{species}"="{color}"') |> 
  glue_collapse(sep = ",")

glue("c({a})")

[nithinmkp]

@Flm

"c({a})"

Thanks. It worked well