diff --git a/docs/report.html b/docs/report.html index 49c5927..0aa2717 100644 --- a/docs/report.html +++ b/docs/report.html @@ -4749,34 +4749,66 @@

Total disk usage

disk_usage <- read_tsv(here("results", "disk_usage.txt"))
 df_date <- disk_usage %>%
   pull("date") %>%
-  as_date()
-

All 34 users in /data/CCBR on Biowulf as of -2023-10-16

-
disk_usage_table <- disk_usage %>%
-  select(Size, Used, `Use%`) %>%
-  knitr::kable()
-card(markdown(disk_usage_table))
-
-
+ as_date() + +layout_column_wrap( + width = 1/2, + value_box( + title = markdown('Disk space in `/data/CCBR`'), + value = markdown(disk_usage %>% + mutate(Usage = glue("{Used} / {Size}")) %>% + select(Usage, `Use%`) %>% + kable() + ) + ), + value_box( + title = markdown("Users"), + value = markdown(glue("{length(usernames)} users as of\n{df_date}")) + ) +) +
+
+
+
+
+

Disk space in /data/CCBR

+
+
- - + - - +
SizeUsedUsage Use%
200T199T199T / 200T 100%
+
+ +
+
+
+
+

Users

+
+

34 users as of +2023-10-16

+
+
+
+ +
+
+ +

Most recent summary (2023-10-09)

Usage by top users for each spacesavers metric.

@@ -4848,17 +4880,17 @@

Most recent summary (2023-10-09)

)) %>% filter(metric == y_metric) %>% arrange(by = value_adj) %>% - pull(username) %>% + pull(username) %>% unique() p <- summary_dat_folder %>% filter(username %in% user_order) %>% - mutate(username = factor(username, levels = user_order)) %>% + mutate(username = factor(username, levels = user_order)) %>% plot_fcn(y_metric) nav_panel(title = y_metric, card_header(y_metric), ggplotly(p, tooltip = "text")) }) nav_panel( title = markdown(glue("`{folder_path}`")), - do.call(navset_pill_list, plots) + navset_pill_list(!!!plots) ) } @@ -4868,346 +4900,346 @@

Most recent summary (2023-10-09)

summary_dat_recent %>% panel_summary("/data/CCBR/projects", plot_user_metric), )
-