From 83ec8c80b760febee42fa1d4f04b5395d32d9888 Mon Sep 17 00:00:00 2001 From: Michael Mayer Date: Fri, 10 Oct 2025 20:00:11 +0200 Subject: [PATCH 1/2] Replace size by linewidth --- R/misc_theme_drwhy.R | 8 ++++---- R/plot_model_diagnostics.R | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/R/misc_theme_drwhy.R b/R/misc_theme_drwhy.R index f19c608de..6465a1210 100644 --- a/R/misc_theme_drwhy.R +++ b/R/misc_theme_drwhy.R @@ -18,8 +18,8 @@ theme_drwhy <- function() { plot.subtitle = element_text(color = "#371ea3", hjust = 0), axis.text = element_text(color = "#371ea3", size = 10), strip.text = element_text(color = "#371ea3", size = 12, hjust = 0), - panel.grid.major.y = element_line(color = "grey90", size = 0.5, linetype = 1), - panel.grid.minor.y = element_line(color = "grey90", size = 0.5, linetype = 1), + panel.grid.major.y = element_line(color = "grey90", linewidth = 0.5, linetype = 1), + panel.grid.minor.y = element_line(color = "grey90", linewidth = 0.5, linetype = 1), panel.grid.minor.x = element_blank(), panel.grid.major.x = element_blank()) @@ -58,8 +58,8 @@ theme_drwhy_vertical <- function() { axis.title = element_text(color = "#371ea3"), axis.text = element_text(color = "#371ea3", size = 10), strip.text = element_text(color = "#371ea3", size = 12, hjust = 0), - panel.grid.major.x = element_line(color = "grey90", size = 0.5, linetype = 1), - panel.grid.minor.x = element_line(color = "grey90", size = 0.5, linetype = 1), + panel.grid.major.x = element_line(color = "grey90", linewidth = 0.5, linetype = 1), + panel.grid.minor.x = element_line(color = "grey90", linewidth = 0.5, linetype = 1), panel.grid.minor.y = element_blank(), panel.grid.major.y = element_blank()) } diff --git a/R/plot_model_diagnostics.R b/R/plot_model_diagnostics.R index b9e8d01f4..587277a29 100644 --- a/R/plot_model_diagnostics.R +++ b/R/plot_model_diagnostics.R @@ -48,7 +48,7 @@ plot.model_diagnostics <- function(x, ..., variable = "y_hat", yvariable = "resi # add hline if (yvariable == "residuals") - pl <- pl + geom_hline(yintercept = 0, color = "grey", lty = 2, size = 1) + pl <- pl + geom_hline(yintercept = 0, color = "grey", lty = 2, linewidth = 1) pl + ggtitle("Model diagnostics", paste0(variable, " against ", yvariable)) } From e1bca6d04ead33ab3bfc0c7a9b8b3e3c2c970828 Mon Sep 17 00:00:00 2001 From: Michael Mayer Date: Fri, 10 Oct 2025 20:27:24 +0200 Subject: [PATCH 2/2] bump coverage cache version --- .github/workflows/test-coverage.yaml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/test-coverage.yaml b/.github/workflows/test-coverage.yaml index 0c5518399..f13105a16 100644 --- a/.github/workflows/test-coverage.yaml +++ b/.github/workflows/test-coverage.yaml @@ -56,7 +56,7 @@ jobs: shell: Rscript {0} - name: Cache R packages - uses: actions/cache@v1 + uses: actions/cache@v3 with: path: ${{ env.R_LIBS_USER }} key: macOS-r-4.0-1-${{ hashFiles('.github/depends.Rds') }}