Get package installation size

package_size

pkg_size_ <- function(pkg) {
  # https://stackoverflow.com/questions/70991241/installed-r-packages-size
  pkg_dir <- system.file(package = pkg)

  if (pkg_dir == "") {
    return(fs::as_fs_bytes(NA))
  }

  res <- system(
    paste("du -sh", system.file(package = pkg), "| awk '{print $1}'"),
    intern = TRUE
  )

  fs::as_fs_bytes(res)
}

pkg_size <- function(pkg) {
  fs::as_fs_bytes(unlist(lapply(pkg, pkg_size_)))
}

pkg_size_recursive <- function(pkg) {
  deps <- c(pkg, unlist(tools::package_dependencies(pkg, recursive = TRUE, which = "Imports")))
  size <- pkg_size(deps)

  total_size <- sum(size)

  data.frame(
    pkg = c(deps, "total"),
    size = structure(c(size, sum(size)), class = c("fs_bytes", "numeric"))
  ) |>
    dplyr::arrange(-as.numeric(size))
}

Base R only solution for directory size:

dir_size = function(x){
    # inspired by https://stackoverflow.com/questions/39753172/compute-the-size-of-directory-in-r
    files = unlist(lapply(x, list.files, recursive = TRUE, full.names = TRUE)) # vectorized for x
    sum(file.size(files), na.rm = TRUE)
    }

The downside of this is that its not easy to read. That's why I like fs_bytes it gives you the human readable format!

The downside of this is that its not easy to read. That's why I like fs_bytes it gives you the human readable format!

That is not a replacement for fs_bytes, but for system("du -s") (I don't think you need the "-h" in there anyway if you are wrapping it in fs_bytes).