-
Notifications
You must be signed in to change notification settings - Fork 16
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
new functions
update_variable_labels_with() (#158)
* new functions `update_variable_labels_with()` and `update_value_labels_with()` allowing to update variable/value labels with a custom function fix #153 * pkgdown * typo * typo * update github actions * additional tests * lint * wordlist
- Loading branch information
1 parent
c725f53
commit c50c245
Showing
13 changed files
with
286 additions
and
9 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,79 @@ | ||
| # Workflow derived from https://github.com/r-lib/actions/tree/v2/examples | ||
| # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help | ||
| on: | ||
| issue_comment: | ||
| types: [created] | ||
|
|
||
| name: Commands | ||
|
|
||
| jobs: | ||
| document: | ||
| if: ${{ github.event.issue.pull_request && (github.event.comment.author_association == 'MEMBER' || github.event.comment.author_association == 'OWNER') && startsWith(github.event.comment.body, '/document') }} | ||
| name: document | ||
| runs-on: ubuntu-latest | ||
| env: | ||
| GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} | ||
| steps: | ||
| - uses: actions/checkout@v4 | ||
|
|
||
| - uses: r-lib/actions/pr-fetch@v2 | ||
| with: | ||
| repo-token: ${{ secrets.GITHUB_TOKEN }} | ||
|
|
||
| - uses: r-lib/actions/setup-r@v2 | ||
| with: | ||
| use-public-rspm: true | ||
|
|
||
| - uses: r-lib/actions/setup-r-dependencies@v2 | ||
| with: | ||
| extra-packages: any::roxygen2 | ||
| needs: pr-document | ||
|
|
||
| - name: Document | ||
| run: roxygen2::roxygenise() | ||
| shell: Rscript {0} | ||
|
|
||
| - name: commit | ||
| run: | | ||
| git config --local user.name "$GITHUB_ACTOR" | ||
| git config --local user.email "[email protected]" | ||
| git add man/\* NAMESPACE | ||
| git commit -m 'Document' | ||
| - uses: r-lib/actions/pr-push@v2 | ||
| with: | ||
| repo-token: ${{ secrets.GITHUB_TOKEN }} | ||
|
|
||
| style: | ||
| if: ${{ github.event.issue.pull_request && (github.event.comment.author_association == 'MEMBER' || github.event.comment.author_association == 'OWNER') && startsWith(github.event.comment.body, '/style') }} | ||
| name: style | ||
| runs-on: ubuntu-latest | ||
| env: | ||
| GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} | ||
| steps: | ||
| - uses: actions/checkout@v4 | ||
|
|
||
| - uses: r-lib/actions/pr-fetch@v2 | ||
| with: | ||
| repo-token: ${{ secrets.GITHUB_TOKEN }} | ||
|
|
||
| - uses: r-lib/actions/setup-r@v2 | ||
|
|
||
| - name: Install dependencies | ||
| run: install.packages("styler") | ||
| shell: Rscript {0} | ||
|
|
||
| - name: Style | ||
| run: styler::style_pkg() | ||
| shell: Rscript {0} | ||
|
|
||
| - name: commit | ||
| run: | | ||
| git config --local user.name "$GITHUB_ACTOR" | ||
| git config --local user.email "[email protected]" | ||
| git add \*.R | ||
| git commit -m 'Style' | ||
| - uses: r-lib/actions/pr-push@v2 | ||
| with: | ||
| repo-token: ${{ secrets.GITHUB_TOKEN }} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,82 @@ | ||
| #' Update variable/value labels with a function | ||
| #' @param .data A data frame, or data frame extension (e.g. a tibble) | ||
| #' @param .fn A function used to transform the variable/value labels of the | ||
| #' selected `.cols`. | ||
| #' @param .cols Columns to update; defaults to all columns. Use tidy selection. | ||
| #' @param ... additional arguments passed onto `.fn`. | ||
| #' @examples | ||
| #' df <- iris %>% | ||
| #' set_variable_labels( | ||
| #' Sepal.Length = "Length of sepal", | ||
| #' Sepal.Width = "Width of sepal", | ||
| #' Petal.Length = "Length of petal", | ||
| #' Petal.Width = "Width of petal", | ||
| #' Species = "Species" | ||
| #' ) | ||
| #' df$Species <- to_labelled(df$Species) | ||
| #' df %>% look_for() | ||
| #' df %>% | ||
| #' update_variable_labels_with(toupper) %>% | ||
| #' look_for() | ||
| #' df %>% | ||
| #' update_variable_labels_with(toupper, .cols = dplyr::starts_with("S")) %>% | ||
| #' look_for() | ||
| #' @export | ||
| update_variable_labels_with <- function(.data, | ||
| .fn, | ||
| .cols = dplyr::everything(), | ||
| ...) { | ||
| UseMethod("update_variable_labels_with") | ||
| } | ||
|
|
||
| #' @export | ||
| update_variable_labels_with.data.frame <- function(.data, | ||
| .fn, | ||
| .cols = dplyr::everything(), | ||
| ...) { | ||
| .fn <- rlang::as_function(.fn) | ||
| cols <- tidyselect::eval_select( | ||
| rlang::enquo(.cols), | ||
| .data, | ||
| allow_rename = FALSE | ||
| ) | ||
| vl <- var_label(.data) | ||
| vl <- vl[names(cols)] | ||
| vl <- lapply(vl, .fn, ...) | ||
| var_label(.data) <- vl | ||
| .data | ||
| } | ||
|
|
||
| #' @export | ||
| #' @rdname update_variable_labels_with | ||
| #' @examples | ||
| #' df %>% | ||
| #' update_value_labels_with(toupper) %>% | ||
| #' look_for() | ||
| update_value_labels_with <- function(.data, | ||
| .fn, | ||
| .cols = dplyr::everything(), | ||
| ...) { | ||
| UseMethod("update_value_labels_with") | ||
| } | ||
|
|
||
| #' @export | ||
| update_value_labels_with.data.frame <- function(.data, | ||
| .fn, | ||
| .cols = dplyr::everything(), | ||
| ...) { | ||
| .fn <- rlang::as_function(.fn) | ||
| cols <- tidyselect::eval_select( | ||
| rlang::enquo(.cols), | ||
| .data, | ||
| allow_rename = FALSE | ||
| ) | ||
| for (i in cols) { | ||
| vl <- val_labels(.data[[i]]) | ||
| if (!is.null(vl)) { | ||
| names(vl) <- .fn(names(vl), ...) | ||
| val_labels(.data[[i]]) <- vl | ||
| } | ||
| } | ||
| .data | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -28,5 +28,6 @@ tbl | |
| tibble | ||
| tibbles | ||
| tidyr | ||
| unclass | ||
| unclassed | ||
| untagged | ||
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
Oops, something went wrong.