Nothing
testdata <- data.frame(state.region, state.x77) %>%
dplyr::mutate(Rich = as.numeric(Income > 4500)) %>%
tibble::as_tibble() %>%
dplyr::arrange(state.region) %>%
dplyr::mutate(Populated = as.numeric(Population > 3000))
fix_order <- function(.tbl) {
.tbl %>%
dplyr::arrange(term, estimate)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.