Skip to content

Commit

Permalink
Fix partial rename
Browse files Browse the repository at this point in the history
  • Loading branch information
brookslogan committed Sep 18, 2024
1 parent d2372f0 commit 166b8c3
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions R/utils.R
Original file line number Diff line number Diff line change
Expand Up @@ -161,15 +161,15 @@ format_tibble_row <- function(x, empty = "*none*") {
if (length(x) == 0L) {
empty
} else {
formatted_names <- as.character(syms(names(bindings)))
formatted_names <- as.character(syms(names(x)))
# Deparse values (e.g., surround strings with quotes & escaping) so this
# can be more easily copy-paste-edited into a `dplyr::filter` for
# debugging.
formatted_values <- map_chr(bindings, function(binding_value) {
formatted_values <- map_chr(x, function(binding_value) {
paste(collapse = " ", deparse(binding_value))
})
formatted_bindings <- paste(formatted_names, "=", formatted_values)
formatted_bindings
formatted_x <- paste(formatted_names, "=", formatted_values)
formatted_x
}
}

Expand Down

0 comments on commit 166b8c3

Please sign in to comment.