diff --git a/.github/workflows/check-standard.yaml b/.github/workflows/check-standard.yaml index 70aa64f..e7fe3ea 100644 --- a/.github/workflows/check-standard.yaml +++ b/.github/workflows/check-standard.yaml @@ -47,7 +47,7 @@ jobs: TZ: 'America/Denver' steps: - - uses: actions/checkout@v3 + - uses: actions/checkout@v4 - uses: r-lib/actions/setup-pandoc@v2 @@ -70,6 +70,9 @@ jobs: needs: check - uses: r-lib/actions/check-r-package@v2 + env: + LC_ALL: en_US.UTF-8 + LANG: en_US.UTF-8 with: args: 'c("--no-manual", "--as-cran", "--no-build-vignettes", "--timings")' build_args: 'c("--no-manual", "--no-resave-data")' diff --git a/.github/workflows/pkgdown.yaml b/.github/workflows/pkgdown.yaml index c010b50..c6affb8 100644 --- a/.github/workflows/pkgdown.yaml +++ b/.github/workflows/pkgdown.yaml @@ -21,7 +21,7 @@ jobs: GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} steps: - - uses: actions/checkout@v3 + - uses: actions/checkout@v4 - uses: r-lib/actions/setup-pandoc@v2 diff --git a/.github/workflows/render-readme.yaml b/.github/workflows/render-readme.yaml index 904f198..3220207 100644 --- a/.github/workflows/render-readme.yaml +++ b/.github/workflows/render-readme.yaml @@ -12,7 +12,7 @@ jobs: steps: - name: Checkout repo - uses: actions/checkout@v3 + uses: actions/checkout@v4 with: fetch-depth: 0 diff --git a/.github/workflows/test-coverage.yaml b/.github/workflows/test-coverage.yaml index 6e5835a..6607de9 100644 --- a/.github/workflows/test-coverage.yaml +++ b/.github/workflows/test-coverage.yaml @@ -29,7 +29,7 @@ jobs: GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} steps: - - uses: actions/checkout@v3 + - uses: actions/checkout@v4 - uses: r-lib/actions/setup-r@v2 with: diff --git a/R/s3-stab-sel.R b/R/s3-stab-sel.R index 3c84fcb..5549be2 100644 --- a/R/s3-stab-sel.R +++ b/R/s3-stab-sel.R @@ -194,8 +194,9 @@ plot.stab_sel <- function(x, thresh = 0.60, lambda_norm <- x$lambda / max(x$lambda) if ( is.null(main) ) { - main <- sprintf("Stability Paths (\u03B1 = %0.2f, P(\u03B1) = %0.2f)", - x$alpha, x$Pw) + main <- bquote( + "Stability Paths (" * alpha == .(x$alpha) * + "," ~ italic(P)(alpha) == .(x$Pw) * ")") } custom_features <- intersect(custom_labels, rownames(x$stabpath_matrix)) @@ -263,7 +264,7 @@ plot.stab_sel <- function(x, thresh = 0.60, geom_hline(yintercept = thresh, alpha = 0.75, colour = "black", linetype = "dashed") + guides(colour = guide_legend(title = "Feature", ncol = legend_cols)) + - labs(x = "\u03BB / max(\u03BB)", + labs(x = bquote(lambda ~ "/" ~ max()(lambda)), y = "Selection Probability", title = main) + theme(legend.position = "right")