Strength of a Lennon song exposed with R function glue::glue

love_verse.R

library(stringfix)
library(magrittr)

one <- c('love', 'is', 'real') 

(one %c% ' ') %,% (rev(one) %c% ' ')

love_verse <- function(w1, w2, w3){
  glue::glue(
  "Love is {b}, {b} is love
   Love is {y}, {y} love
   Love is {u} to be loved", 
  b = w1, y = w2, u = w3)
}

love_verse('real',  'feeling',  'wanting')
love_verse('touch', 'reaching', 'asking')
love_verse('free',  'living',   'needing')

list(list(w1 = 'real',  w2 = 'feeling',  w3 = 'wanting'),
     list(w1 = 'touch', w2 = 'reaching', w3 = 'asking' ),
     list(w1 = 'free',  w2 = 'living',   w3 = 'needing')) %>% 
  purrr::map(function(x)do.call(love_verse, x))

Code for this post: https://guillaumepressiat.github.io//blog/2019/03/love

@GuillaumePressiat An alternative implementation, taking advantage of the fact glue() and glue_data() are vectorized.

library(magrittr)

tibble::tribble(
  ~a, ~b, ~c,
  "real", "feeling", "wanting",
  "touch", "reaching", "asking",
  "free", "living", "needing"
  ) %>%
  glue::glue_data(
  "Love is {a}, {a} is love
   Love is {b}, {b} love
   Love is {c} to be loved",
  ) %>%
  glue::glue_collapse("\n\n")
#> Love is real, real is love
#> Love is feeling, feeling love
#> Love is wanting to be loved
#> 
#> Love is touch, touch is love
#> Love is reaching, reaching love
#> Love is asking to be loved
#> 
#> Love is free, free is love
#> Love is living, living love
#> Love is needing to be loved

^{Created on 2019-03-24 by the reprex package (v0.2.1)}

@jimhester Thank you !
This is nice indeed. Tidy way.
In fact I use glue_data often but have not thinked theses words will fit in a 3*3 tibble/tribble for using that way !
I will update blogpost with this.