IS
Size: a a a
IS
IS
IS
БА
IS
IS
weightDF <- function(df){
# сводка по объемам данных в печатном виде
as_tibble(df) %>%
map(pryr::object_size) %>%
unlist() %>%
enframe() %>%
arrange(desc(value)) %>%
add_row(name = "TOTAL", value = sum(.$value)) %>%
mutate(ratio = formattable::percent(value / (0.5 * sum(value)), 2)) %>%
mutate(across("value", ~as.character(fs::as_fs_bytes(.x))))
}
PU
NK
АЧ
IS
AS
PU
IS
fs::as_fs_bytes(10^6 * 10)
# 9.54M
IS
EP
IS
fs::as_fs_bytes(10^6 * 13)
# 12.4M
IS
PU
АЧ
PU