[MediaWiki-commits] [Gerrit] wikimedia...prince[master]: Annotate Reportupdater migration on graphs

2017-03-08 Thread Chelsyx (Code Review) 
Chelsyx has submitted this change and it was merged. ( 
https://gerrit.wikimedia.org/r/341743 )

Change subject: Annotate Reportupdater migration on graphs
..


Annotate Reportupdater migration on graphs

Bug: T150915
Change-Id: Idd8b46e61db9e33788d2be63564c3dc40334dc5f
---
M server.R
M tab_documentation/action_breakdown.md
M tab_documentation/applinks.md
M tab_documentation/clickthrough_rate.md
M tab_documentation/dwelltime.md
M tab_documentation/first_visit.md
M tab_documentation/geography.md
M tab_documentation/languages_summary.md
M tab_documentation/languages_visited.md
M tab_documentation/most_common.md
M tab_documentation/pageviews.md
M tab_documentation/referers_byengine.md
M tab_documentation/referers_summary.md
M tab_documentation/sisproj.md
M utils.R
15 files changed, 95 insertions(+), 63 deletions(-)

Approvals:
  Chelsyx: Verified; Looks good to me, approved



diff --git a/server.R b/server.R
index 9da5d5a..2d82d55 100644
--- a/server.R
+++ b/server.R
@@ -51,7 +51,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$action_breakdown_dygraph <- renderDygraph({
@@ -68,7 +69,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$most_common_dygraph <- renderDygraph({
@@ -83,7 +85,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$first_visit_dygraph <- renderDygraph({
@@ -99,7 +102,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$dwelltime_dygraph <- renderDygraph({
@@ -115,7 +119,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$sisproj_dygraph <- renderDygraph({
@@ -137,7 +142,8 @@
   polloi::smoother(smooth_level = 
polloi::smooth_switch(input$smoothing_global, input$smoothing_sisproj), rename 
= FALSE) %>%
   polloi::make_dygraph("Date", ifelse(input$sisproj_type == "prop", 
"Proportion (%)", input$sisproj_metric),
paste(ifelse(input$sisproj_metric == "Clicks", 
"Clicks", "Users who clicked"), "on links other Wikimedia Foundation 
projects")) %>%
-  dyLegend(labelsDiv = "sispr

[MediaWiki-commits] [Gerrit] wikimedia...prince[master]: Annotate Reportupdater migration on graphs

2017-03-07 Thread Bearloga (Code Review) 
Bearloga has uploaded a new change for review. ( 
https://gerrit.wikimedia.org/r/341743 )

Change subject: Annotate Reportupdater migration on graphs
..

Annotate Reportupdater migration on graphs

Change-Id: Idd8b46e61db9e33788d2be63564c3dc40334dc5f
---
M server.R
M tab_documentation/action_breakdown.md
M tab_documentation/applinks.md
M tab_documentation/clickthrough_rate.md
M tab_documentation/dwelltime.md
M tab_documentation/first_visit.md
M tab_documentation/geography.md
M tab_documentation/languages_summary.md
M tab_documentation/languages_visited.md
M tab_documentation/most_common.md
M tab_documentation/pageviews.md
M tab_documentation/referers_byengine.md
M tab_documentation/referers_summary.md
M tab_documentation/sisproj.md
M utils.R
15 files changed, 95 insertions(+), 63 deletions(-)


  git pull ssh://gerrit.wikimedia.org:29418/wikimedia/discovery/prince 
refs/changes/43/341743/1

diff --git a/server.R b/server.R
index 9da5d5a..2d82d55 100644
--- a/server.R
+++ b/server.R
@@ -51,7 +51,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$action_breakdown_dygraph <- renderDygraph({
@@ -68,7 +69,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$most_common_dygraph <- renderDygraph({
@@ -83,7 +85,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$first_visit_dygraph <- renderDygraph({
@@ -99,7 +102,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "A (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$dwelltime_dygraph <- renderDygraph({
@@ -115,7 +119,8 @@
   dyEvent(as.Date("2016-05-18"), "Sister Links Updated", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-06-02"), "Detect Language Deployed", labelLoc = 
"bottom", color = "white") %>%
   dyEvent(as.Date("2016-08-16"), "Secondary Links Collapsed", labelLoc = 
"bottom", color = "white") %>%
-  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white")
+  dyEvent(as.Date("2016-09-13"), "B (schema switch)", labelLoc = "bottom", 
color = "white") %>%
+  dyEvent(as.Date("2017-01-01"), "R (reportupdater)", labelLoc = "bottom", 
color = "white")
   })
 
   output$sisproj_dygraph <- renderDygraph({
@@ -137,7 +142,8 @@
   polloi::smoother(smooth_level = 
polloi::smooth_switch(input$smoothing_global, input$smoothing_sisproj), rename 
= FALSE) %>%
   polloi::make_dygraph("Date", ifelse(input$sisproj_type == "prop", 
"Proportion (%)", input$sisproj_metric),
paste(ifelse(input$sisproj_metric == "Clicks", 
"Clicks", "Users who clicked"), "on links other Wikimedia Foundation 
projects")) %>%
-  dyLegend(l