From dc039d411341f12670ae0fb7da8c54125201e35e Mon Sep 17 00:00:00 2001
From: Pawel Rucki <12943682+pawelru@users.noreply.github.com>
Date: Mon, 25 Nov 2024 09:55:50 +0100
Subject: [PATCH] remove redundant step

---
 .github/workflows/docs.yml | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/.github/workflows/docs.yml b/.github/workflows/docs.yml
index bae78e9a66..148e279cd7 100644
--- a/.github/workflows/docs.yml
+++ b/.github/workflows/docs.yml
@@ -100,27 +100,6 @@ jobs:
           name: site-development
           path: site.zip
 
-      - name: Remove large WebR assets 🧹
-        run: |
-          packages_path <- sprintf("./book/_site/site_libs/quarto-contrib/shinylive-%s/shinylive/webr/packages", shinylive::assets_version())
-
-          # remove the dirs with size > 100 MB
-          for (x in list.dirs(packages_path)) {
-            x_files <- file.info(list.files(x, full.names = TRUE))
-            if (any(x_files$size > 100 * 1024^2)) {
-              print(x)
-              print(x_files)
-              unlink(x, recursive = TRUE)
-            }
-          }
-
-          # refresh the `metadata.rds` file
-          metadata_path <- file.path(packages_path, "metadata.rds")
-          metadata <- readRDS(metadata_path)
-          new_metadata <- metadata[intersect(names(metadata), list.dirs(packages_path, full.names = FALSE))]
-          saveRDS(new_metadata, metadata_path)
-        shell: Rscript {0}
-
       - name: Publish docs 📔
         uses: peaceiris/actions-gh-pages@v3
         with:
@@ -186,27 +165,6 @@ jobs:
         shell: bash
         working-directory: book/_site
 
-      - name: Remove large WebR assets 🧹
-        run: |
-          packages_path <- sprintf("./book/_site/site_libs/quarto-contrib/shinylive-%s/shinylive/webr/packages", shinylive::assets_version())
-
-          # remove the dirs with size > 100 MB
-          for (x in list.dirs(packages_path)) {
-            x_files <- file.info(list.files(x, full.names = TRUE))
-            if (any(x_files$size > 100 * 1024^2)) {
-              print(x)
-              print(x_files)
-              unlink(x, recursive = TRUE)
-            }
-          }
-
-          # refresh the `metadata.rds` file
-          metadata_path <- file.path(packages_path, "metadata.rds")
-          metadata <- readRDS(metadata_path)
-          new_metadata <- metadata[intersect(names(metadata), list.dirs(packages_path, full.names = FALSE))]
-          saveRDS(new_metadata, metadata_path)
-        shell: Rscript {0}
-
       - name: Upload docs ⬆
         if: startsWith(github.ref, 'refs/tags/v')
         uses: actions/upload-artifact@v4