115 lines
2.7 KiB
R
115 lines
2.7 KiB
R
library(shiny)
|
|
library(magrittr)
|
|
library(ggplot2)
|
|
library(plotly)
|
|
library(DT)
|
|
|
|
source("connection_module.R",encoding="utf-8")
|
|
|
|
loginUI <- function(id) {
|
|
ns <- NS(id)
|
|
fluidPage(
|
|
useShinyjs(),
|
|
tags$head(
|
|
tags$script(src="js.cookie.js"),
|
|
tags$style(HTML("
|
|
@import url('//fonts.googleapis.com/css?family=Lobster|Cabin:400,700');
|
|
@import url('//fonts.googleapis.com/css2?family=Fjalla+One');
|
|
|
|
|
|
"))),
|
|
|
|
theme = "style.css",
|
|
|
|
# App title ----
|
|
|
|
fluidRow(column(12,
|
|
wellPanel(
|
|
textInput("login", label = strong("Login")),
|
|
passwordInput("pass", label = strong("Haslo")),
|
|
uiOutput("loginErr"),
|
|
actionButton('loginBtn',"Zaloguj")
|
|
|
|
))%>% tagAppendAttributes(id = 'column-login')
|
|
) %>% tagAppendAttributes(id = 'row-login'),
|
|
|
|
|
|
|
|
fluidRow(
|
|
column(12,
|
|
tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'),
|
|
|
|
)%>% tagAppendAttributes(id = 'row-footer')
|
|
|
|
|
|
)
|
|
}
|
|
loginServer <- function(input, output,session) {
|
|
|
|
isCorrect <- eventReactive(input$loginBtn, {
|
|
tmp<-data.frame(login=input$login,pass=input$pass)
|
|
number<-login(tmp)
|
|
print(number)
|
|
if(number!=0){
|
|
shinyjs::runjs( 'Cookies.set(\'token\', \'loggedIn\', { expires: 7 });
|
|
|
|
var cookie = Cookies.get(\'token\');
|
|
Shiny.onInputChange("token", cookie);
|
|
window.location.replace(\'/#!/profil\');')
|
|
|
|
TRUE
|
|
|
|
|
|
|
|
}else{
|
|
FALSE
|
|
}
|
|
|
|
|
|
})
|
|
|
|
|
|
output$loginErr<-renderUI({
|
|
if (isCorrect()==TRUE){
|
|
p("OK",style="color:white;text-align:center;")
|
|
}else{
|
|
p("Uzytkownik nie istnieje lub wprowadzono bledne dane",style="color:yellow;text-align:center;")
|
|
}
|
|
|
|
})
|
|
|
|
# observeEvent(input$loginBtn,{
|
|
# tmp<-data.frame(login=input$login,pass=input$pass)
|
|
# number<-login(tmp)
|
|
# print(number)
|
|
# if(number!=0){
|
|
# shinyjs::runjs( 'Cookies.set(\'token\', \'loggedIn\', { expires: 7 });
|
|
#
|
|
# var cookie = Cookies.get(\'token\');
|
|
# Shiny.onInputChange("token", cookie);
|
|
# window.location.replace(\'/#!/profil\');')
|
|
#
|
|
#
|
|
#
|
|
# }else{
|
|
#
|
|
# }
|
|
#
|
|
#
|
|
# })
|
|
|
|
observe({
|
|
if(((session$clientData)$url_hash=="#!/login") & (!is.null(input$token) & length(input$token)>0 )){
|
|
|
|
print("dziala")
|
|
shinyjs::runjs('window.location.replace(\'/#!/home\');')
|
|
}
|
|
})
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|