-
Notifications
You must be signed in to change notification settings - Fork 0
/
srvUi.R
32 lines (29 loc) · 962 Bytes
/
srvUi.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
# server-side mobile UI logic
# last update: 2017-01-03
output$hdrImageLinkMobile <- renderUI({
# fix for "Raspberry Navigation"
renderHdrImageLink()
})
headerTitle <- function() {
app <- currApp()
if(length(all.equal(app, logical(0)))>1){
app <- currApp()
url <- itemsUrl(app[['url']], 'eu.ownyourdata.info')
infoRec <- readItems(app, url)
if(nrow(infoRec) == 1){
infoRec$name
} else {
"OwnYourData"
}
} else {
"OwnYourData"
}
}
renderHdrImageLink <- function() {
tags$div(
tags$a(href=input$store$pia_url,
tags$img(height='25px', style='margin-top:-5px',
src=oydLogo)),
tags$a(href=input$store$pia_url, headerTitle())
)
}