oh_encode <- function(df,x){ x=enquo(x) df%>% mutate(wow = 1)%>% spread(key=!!x,value = wow, fill = 0,sep = "_") }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.