How to make a UTF arrow operator using wrapr
and addinexamplesWV
(original note here).
library("addinexamplesWV") op <- paste0('%', intToUtf8(8226), intToUtf8(10132), '%') assign(op, wrapr::`%.>%`) options("addinexamplesWV.usrFn1" = function() { rstudioapi::insertText(paste0(' ', op, ' ')) }) 7 %•➔% sqrt(.)
Note: UTF8 is not recommended in R source code.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.