GoranSMilovanovic has submitted this change and it was merged. (
https://gerrit.wikimedia.org/r/398695 )
Change subject: Usage Dashboard Dec 2017
......................................................................
Usage Dashboard Dec 2017
Change-Id: I229d45fc96e581da487effce6497720b319b0234
---
M server.R
M ui.R
2 files changed, 37 insertions(+), 12 deletions(-)
Approvals:
GoranSMilovanovic: Looks good to me, approved
jenkins-bot: Verified
diff --git a/server.R b/server.R
index 5bdfdd6..a57f449 100644
--- a/server.R
+++ b/server.R
@@ -159,9 +159,27 @@
})
names(unzip_projectTypes) <- search_projectTypes
+### --- Fetch update info
+setwd('/srv/shiny-server/WDCM_UsageDashboard/update/')
+update <- read.csv('toLabsReport.csv',
+ header = T,
+ check.names = F,
+ stringsAsFactors = F,
+ row.names = 1)
+
### --- shinyServer
shinyServer(function(input, output, session) {
+ ### --- output: updateInfo
+ output$updateInfo <- renderText({
+ date <- update$timeStamp[dim(update)[1]]
+ date <- strsplit(as.character(date), split = " ", fixed = T)[[1]][1]
+ date <- strsplit(date, split = "-", fixed = T)
+ date[[1]][2] <- month.name[as.numeric(date[[1]][2])]
+ date <- paste(unlist(date), collapse = " ")
+ return(paste("<p align=right>Last update: <i>", date, "</i></p>", sep =
""))
+ })
+
### ----------------------------------
### --- BASIC FACTS
### ----------------------------------
diff --git a/ui.R b/ui.R
index 8a8221b..0caf258 100644
--- a/ui.R
+++ b/ui.R
@@ -25,20 +25,27 @@
# - fluidRow Title
fluidRow(
- column(width = 12,
- h2('WDCM Usage Dashboard'),
- HTML('<font size="3"><b>Wikidata Concepts
Monitor</b></font>')
-
+ column(width = 5,
+ fluidRow(
+ column(width = 3,
+ img(src = 'Wikidata-logo-en.png',
+ align = "left")
+ ),
+ column(width = 1),
+ column(width = 8,
+ h1('WDCM Usage Dashboard'),
+ HTML('<font size="5"><b>Wikidata Concepts
Monitor</b></font>')
+ )
)
+ ),
+ column(width = 7,
+ br(),
+ HTML('<p align="right"><b>Interactive visualizations of
Wikidata use by other Wikimedia projects.</b></p>'),
+ HTML('<p align="right"><b><a href =
"https://www.wikidata.org/wiki/Wikidata:Wikidata_Concepts_Monitor";
target="_blank">Visit the WDCM wiki page</a></b></p>'),
+ HTML('<p align="right"><b>Did you spot a bug, a missing
label, or wrong data? <a href =
"https://www.wikidata.org/wiki/Wikidata:Wikidata_Concepts_Monitor/UserFeedback";
target="_blank">Give us feedback here</a></b></p>'),
+ htmlOutput('updateInfo')
+ )
), # - fluidRow Title END
-
- # - fluidRow Logo
- fluidRow(
- column(width = 12,
- img(src='Wikidata-logo-en.png',
- align = "left")
- )
- ), # - fluidRow END
# - hr()
fluidRow(
--
To view, visit https://gerrit.wikimedia.org/r/398695
To unsubscribe, visit https://gerrit.wikimedia.org/r/settings
Gerrit-MessageType: merged
Gerrit-Change-Id: I229d45fc96e581da487effce6497720b319b0234
Gerrit-PatchSet: 1
Gerrit-Project: analytics/wmde/WDCM-Usage-Dashboard
Gerrit-Branch: master
Gerrit-Owner: GoranSMilovanovic <goran.milovanovic_...@wikimedia.de>
Gerrit-Reviewer: GoranSMilovanovic <goran.milovanovic_...@wikimedia.de>
Gerrit-Reviewer: jenkins-bot <>
_______________________________________________
MediaWiki-commits mailing list
MediaWiki-commits@lists.wikimedia.org
https://lists.wikimedia.org/mailman/listinfo/mediawiki-commits
