stringr-str-glue-data-in-r