-
Notifications
You must be signed in to change notification settings - Fork 0
/
setup.R
43 lines (36 loc) · 1.31 KB
/
setup.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
33
34
35
36
37
38
39
40
41
42
43
library(shiny)
library(shinymanager)
library(shinydashboard)
library(leaflet)
library(googlesheets4)
library(tidyverse)
library(plotly)
library(waiter)
# setup -------------------------------------------------------------------
spinner <- tagList(
spin_chasing_dots(),
span("Loading stuff...", style="color:white;")
)
options(scipen = 999)
dbHeader <- dashboardHeader(title = "Interfood ajánló",
tags$li(a(href = 'https://marcellgranat.com',
img(src = 'icon.png',
title = "Marcell Granát", height = "30px"),
style = "padding-top:10px; padding-bottom:10px;"),
class = "dropdown"))
inactivity <- "function idleTimer() {
var t = setTimeout(logout, 120000);
window.onmousemove = resetTimer; // catches mouse movements
window.onmousedown = resetTimer; // catches mouse movements
window.onclick = resetTimer; // catches mouse clicks
window.onscroll = resetTimer; // catches scrolling
window.onkeypress = resetTimer; //catches keyboard actions
function logout() {
window.close(); //close the window
}
function resetTimer() {
clearTimeout(t);
t = setTimeout(logout, 120000); // time is in milliseconds (1000 is 1 second)
}
}
idleTimer();"