cat("# Autogenerated from data-raw/namespace.R\n\n", file = "NAMESPACE")
append <- . %>% cat(sep="\n", file = "NAMESPACE", append = TRUE)
c("dplyr_compat", "plyr_compat", "plyr_warn_compat",
lapply(c("d", "p"), sprintf, fmt=c("%smutate", "%scount", "%srename")) %>% unlist
) %>%
sprintf("export(%s)", .) %>%
append
"" %>% append
getNamespaceExports("plyr") %>%
setdiff(c("mutate", "summarise", "summarize", "arrange", "failwith", "id", "rename", "desc", "count")) %>%
sprintf('"%s"', .) %>%
sprintf("importFrom(plyr,%s)", .) %>%
append
"" %>% append
getNamespaceExports("dplyr") %>%
setdiff(c("count", "mutate", "rename")) %>%
sprintf('"%s"', .) %>%
sprintf("importFrom(dplyr,%s)", .) %>%
append
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.