Skip to content

Commit 6d71798

Browse files
github-actions[bot]github-actions[bot]
committed
[skip style] [skip vbump] Restyle files
1 parent fed8c46 commit 6d71798

File tree

1 file changed

+70
-71
lines changed

1 file changed

+70
-71
lines changed

‎R/tm_missing_data.R‎

Lines changed: 70 additions & 71 deletions
Original file line numberDiff line numberDiff line change
@@ -1159,85 +1159,84 @@ srv_missing_data <- function(id,
11591159
labels <- lapply(qenv$ANL, attr, which = "label")
11601160
if (!any(lengths(labels))) {
11611161
ANL_q <- within(qenv, # nolint object_name_linter
1162-
{
1163-
keep_columns <- intersect(c(keys, group_var), colnames(ANL))
1164-
ANL <- ANL %>%
1165-
filter(group_var_name %in% group_vals) %>%
1166-
pivot_longer(-keep_columns, values_transform = is.na) %>%
1167-
summarise(
1168-
.by = c(group_var_name, name),
1169-
value = sum(value), perc = value / n()
1170-
)
1171-
},
1172-
keys = join_keys(qenv) |> unlist() |> unique(),
1173-
group_var_name = as.name(group_var),
1174-
group_var = group_var,
1175-
group_vals = group_vals
1162+
{
1163+
keep_columns <- intersect(c(keys, group_var), colnames(ANL))
1164+
ANL <- ANL %>%
1165+
filter(group_var_name %in% group_vals) %>%
1166+
pivot_longer(-keep_columns, values_transform = is.na) %>%
1167+
summarise(
1168+
.by = c(group_var_name, name),
1169+
value = sum(value), perc = value / n()
1170+
)
1171+
},
1172+
keys = join_keys(qenv) |> unlist() |> unique(),
1173+
group_var_name = as.name(group_var),
1174+
group_var = group_var,
1175+
group_vals = group_vals
11761176
)
11771177
tile <- within(ANL_q,
1178-
{
1179-
by_variable_plot <- ggplot(ANL, aes(group_var_name, name)) +
1180-
geom_tile(aes(fill = column)) +
1181-
geom_text(aes(label = scales::percent(perc)),
1182-
data = . %>% filter(perc > 0), color = "white"
1183-
) +
1184-
scale_x_discrete(expand = expansion()) +
1185-
scale_fill_gradient(high = "#ff2951ff", low = "grey90", labels = labels) +
1186-
labs +
1187-
ggthemes
1188-
},
1189-
group_var_name = as.name(group_var),
1190-
column = if (input$count_type == "counts") {
1191-
as.name("value")
1192-
} else {
1193-
as.name("perc")
1194-
},
1195-
labs = parsed_ggplot2_args$labs,
1196-
labels = if (input$count_type == "counts") quote(ggplot2::waiver()) else quote(scales::label_percent()),
1197-
ggthemes = parsed_ggplot2_args$ggtheme
1178+
{
1179+
by_variable_plot <- ggplot(ANL, aes(group_var_name, name)) +
1180+
geom_tile(aes(fill = column)) +
1181+
geom_text(aes(label = scales::percent(perc)),
1182+
data = . %>% filter(perc > 0), color = "white"
1183+
) +
1184+
scale_x_discrete(expand = expansion()) +
1185+
scale_fill_gradient(high = "#ff2951ff", low = "grey90", labels = labels) +
1186+
labs +
1187+
ggthemes
1188+
},
1189+
group_var_name = as.name(group_var),
1190+
column = if (input$count_type == "counts") {
1191+
as.name("value")
1192+
} else {
1193+
as.name("perc")
1194+
},
1195+
labs = parsed_ggplot2_args$labs,
1196+
labels = if (input$count_type == "counts") quote(ggplot2::waiver()) else quote(scales::label_percent()),
1197+
ggthemes = parsed_ggplot2_args$ggtheme
11981198
)
1199-
12001199
} else {
12011200
ANL_q <- within(qenv, # nolint object_name_linter
1202-
{
1203-
keep_columns <- intersect(c(keys, group_var), colnames(ANL))
1204-
labels <- vapply(qenv$ANL, attr, which = "label", FUN.VALUE = character(1L))
1205-
ANL <- ANL %>%
1206-
filter(group_var_name %in% group_vals) %>%
1207-
pivot_longer(-keep_columns, values_transform = is.na) %>%
1208-
summarise(
1209-
.by = c(group_var_name, name),
1210-
value = sum(value), perc = value / n()
1211-
) %>%
1212-
mutate(label = labels[name])
1213-
},
1214-
keys = join_keys(qenv) |> unlist() |> unique(),
1215-
group_var_name = as.name(group_var),
1216-
group_var = group_var,
1217-
group_vals = group_vals
1201+
{
1202+
keep_columns <- intersect(c(keys, group_var), colnames(ANL))
1203+
labels <- vapply(qenv$ANL, attr, which = "label", FUN.VALUE = character(1L))
1204+
ANL <- ANL %>%
1205+
filter(group_var_name %in% group_vals) %>%
1206+
pivot_longer(-keep_columns, values_transform = is.na) %>%
1207+
summarise(
1208+
.by = c(group_var_name, name),
1209+
value = sum(value), perc = value / n()
1210+
) %>%
1211+
mutate(label = labels[name])
1212+
},
1213+
keys = join_keys(qenv) |> unlist() |> unique(),
1214+
group_var_name = as.name(group_var),
1215+
group_var = group_var,
1216+
group_vals = group_vals
12181217
)
12191218

12201219
tile <- within(ANL_q,
1221-
{
1222-
by_variable_plot <- ggplot(ANL, aes(group_var_name, label)) +
1223-
geom_tile(aes(fill = column)) +
1224-
geom_text(aes(label = scales::percent(perc)),
1225-
data = . %>% filter(perc > 0), color = "white"
1226-
) +
1227-
scale_x_discrete(expand = expansion()) +
1228-
scale_fill_gradient(high = "#ff2951ff", low = "grey90", labels = labels) +
1229-
labs +
1230-
ggthemes
1231-
},
1232-
group_var_name = as.name(group_var),
1233-
column = if (input$count_type == "counts") {
1234-
as.name("value")
1235-
} else {
1236-
as.name("perc")
1237-
},
1238-
labs = parsed_ggplot2_args$labs,
1239-
labels = if (input$count_type == "counts") quote(ggplot2::waiver()) else quote(scales::label_percent()),
1240-
ggthemes = parsed_ggplot2_args$ggtheme
1220+
{
1221+
by_variable_plot <- ggplot(ANL, aes(group_var_name, label)) +
1222+
geom_tile(aes(fill = column)) +
1223+
geom_text(aes(label = scales::percent(perc)),
1224+
data = . %>% filter(perc > 0), color = "white"
1225+
) +
1226+
scale_x_discrete(expand = expansion()) +
1227+
scale_fill_gradient(high = "#ff2951ff", low = "grey90", labels = labels) +
1228+
labs +
1229+
ggthemes
1230+
},
1231+
group_var_name = as.name(group_var),
1232+
column = if (input$count_type == "counts") {
1233+
as.name("value")
1234+
} else {
1235+
as.name("perc")
1236+
},
1237+
labs = parsed_ggplot2_args$labs,
1238+
labels = if (input$count_type == "counts") quote(ggplot2::waiver()) else quote(scales::label_percent()),
1239+
ggthemes = parsed_ggplot2_args$ggtheme
12411240
)
12421241
}
12431242

0 commit comments

Comments
 (0)