remove redundant step

insightsengineering · Nov 25, 2024 · dc039d4 · dc039d4
1 parent 73dae47
commit dc039d4
Showing 1 changed file with 0 additions and 42 deletions.
diff --git 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