global change test

ficonsulting · Jul 5, 2017 · c8216d9 · c8216d9
1 parent 74a51db
commit c8216d9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/fcs_reestimates/global.R b/fcs_reestimates/global.R
@@ -232,7 +232,7 @@ bubble_plot <- function(df, in_fy) {
                      plot_data$orig_sr), na.rm = TRUE) + 1
 
   a <- list(
-    text = 'Subsidy Increases',
+    text = 'Subsidy Increase',
     showarrow = FALSE,
     y = max_point,
     x = min_point,
@@ -241,7 +241,7 @@ bubble_plot <- function(df, in_fy) {
   )
 
   b <- list(
-    text = 'Subsidy Decreases',
+    text = 'Subsidy Decrease',
     showarrow = FALSE,
     y = min_point,
     x = max_point,
@@ -287,7 +287,7 @@ cohort_xy <- function(df, view_type) {
                      df$orig_sr), na.rm = TRUE) + 1
 
   a <- list(
-    text = 'Subsidy Increases',
+    text = 'Subsidy Increase',
     showarrow = FALSE,
     y = max_point,
     x = min_point,
@@ -296,7 +296,7 @@ cohort_xy <- function(df, view_type) {
   )
 
   b <- list(
-    text = 'Subsidy Decreases',
+    text = 'Subsidy Decrease',
     showarrow = FALSE,
     y = min_point,
     x = max_point,