R/monitor_system.R

In Acanthiza/envFunc: Functions to help with Environmental Science

#' Monitor system resources
#'
#' A simple version of windows task manager
#'
#' @param monitor_df NULL or results from previous call to envFunc::monitor_system()
#'
#' @return Dataframe
#' @export
#'
#' @examples
#'   df <- monitor_system()
#'
#'   counter <- 1
#'
#'   while(counter < 3) {
#'
#'     counter <- counter + 1
#'
#'     Sys.sleep(1)
#'
#'     df <- monitor_system(df)
#'
#'   }
  monitor_system <- function(out_file = "system_monitor.csv"
                             , plot = !is.null(out_file)
                             , plot_time = 1/24
                             ) {

      new <- tibble::tibble(now = Sys.time())

      new_cpu <- new |> dplyr::bind_cols(envFunc::prop_cpu())
      new_mem <- new |> dplyr::bind_cols(envFunc::prop_mem())

      new <- dplyr::bind_rows(new_cpu, new_mem)

      monitor_df <- if(!is.null(out_file)) {

        rio::export(new
                    , out_file
                    , append = file.exists(out_file)
                    )

        rio::import(out_file)

      } else new

      if(plot) {

        real <- ggplot(monitor_df |>
                         tidyr::pivot_longer(dplyr::where(is.numeric)) |>
                         dplyr::filter(!grepl("prop", name)) |>
                         dplyr::filter(as.numeric(difftime(Sys.time(), now, units = "days")) <= plot_time)
                       , aes(now, value)
                       ) +
          geom_point() +
          facet_grid(type ~ name, scales = "free_y") +
          scale_x_datetime(labels = scales::date_format("%H:%M", tz = "Australia/Adelaide"))

        prop <- ggplot(monitor_df |>
                         tidyr::pivot_longer(dplyr::where(is.numeric)) |>
                         dplyr::filter(grepl("prop", name)) |>
                         dplyr::filter(as.numeric(difftime(Sys.time(), now, units = "days")) <= plot_time)
                       , aes(now, value)
                       ) +
          geom_point() +
          facet_grid(type ~ name, scales = "free_y") +
          scale_x_datetime(labels = scales::date_format("%H:%M", tz = "Australia/Adelaide")) +
          coord_cartesian(y = c(0, 1))

        print(patchwork::wrap_plots(real, prop, nrow = 1, widths = c(2/3, 1/3)))

      }

      return(monitor_df)

    }