105 Two prompt designs per meme (A and B)

prompt_designs <- tibble( meme_id = rep(meme_bank\(meme_id, each = 2), design = rep(c("A","B"), times = nrow(meme_bank)), # Design A: straightforward instruction prompt_text = map2_chr(meme_bank\)meme_id, meme_bank\(description, function(id, desc) { paste0("Meme: ", meme_bank\)format[id], “. Description:”, desc, ” Create a short, witty caption (<= 20 words) that fits a data-science meme.”) }) )