From 37c9aec20bc5677ac40b4eb16710f988bbf9a6c5 Mon Sep 17 00:00:00 2001 From: Trevor Riley Date: Wed, 13 May 2026 17:53:52 -0400 Subject: [PATCH] Fix ambiguous if/else parse in app.R tibble construction Wrap inline if/else in parentheses so R parsers on older server versions can unambiguously determine the expression boundary before the trailing comma. --- inst/shiny-app/CiteSource/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inst/shiny-app/CiteSource/app.R b/inst/shiny-app/CiteSource/app.R index ee474cc3..ebd5bcd1 100644 --- a/inst/shiny-app/CiteSource/app.R +++ b/inst/shiny-app/CiteSource/app.R @@ -2810,7 +2810,7 @@ server <- function(input, output, session) { `Unique Records` = sum(detailed_counts_final$`Unique Records`, na.rm = TRUE), `Non-unique Records` = sum(detailed_counts_final$`Non-unique Records`, na.rm = TRUE), `Source Contribution %` = scales::percent(1.0, accuracy = 0.1), # Sum of these per-source % should now be 100% - `Source Unique Contribution %` = if(total_overall_unique_records > 0) scales::percent(1.0, accuracy = 0.1) else scales::percent(0.0, accuracy = 0.1), # Sum of these should be 100% if any uniques + `Source Unique Contribution %` = (if(total_overall_unique_records > 0) scales::percent(1.0, accuracy = 0.1) else scales::percent(0.0, accuracy = 0.1)), # Sum of these should be 100% if any uniques `Source Unique %` = scales::percent(sum(detailed_counts_final$`Unique Records`, na.rm = TRUE) / ifelse(overall_total_distinct_records == 0, 1, overall_total_distinct_records), accuracy = 0.1) )