A simple version of windows task manager
monitor_system(
out_file = "system_monitor.csv",
plot = !is.null(out_file),
plot_time = 1/24
)Dataframe
df <- monitor_system()
#> Warning: Only runs on windows
#> New names:
#> • `` -> `...2`
#> Warning: Only runs on windows
#> New names:
#> • `` -> `...2`
#> Error in ggplot(dplyr::filter(dplyr::filter(tidyr::pivot_longer(monitor_df, dplyr::where(is.numeric)), !grepl("prop", name)), as.numeric(difftime(Sys.time(), now, units = "days")) <= plot_time), aes(now, value)): could not find function "ggplot"
counter <- 1
while(counter < 3) {
counter <- counter + 1
Sys.sleep(1)
df <- monitor_system(df)
}
#> Warning: Only runs on windows
#> New names:
#> • `` -> `...2`
#> Warning: Only runs on windows
#> New names:
#> • `` -> `...2`
#> Error: Invalid `file` argument: must be character