|
- if(interactive())
- {
- library(colorout)
- library(setwidth)
- options(blogdown.ext = ".md",
- blogdown.author = "maximewack",
- menu.graphics = F,
- scipen = 999,
- tibble.print_min = 10,
- tibble.print_max = 40)
-
- .View <- function(x)
- {
- x %>%
- dplyr::mutate_if(is.character, factor) %>%
- DT::datatable(filter = "top", options = list(paging = F, fixedHeader = T))
- }
- }
|