48 lines
1.1 KiB
R
48 lines
1.1 KiB
R
|
library(shiny)
|
||
|
|
library(magrittr)
|
||
|
|
library(ggplot2)
|
||
|
|
library(plotly)
|
||
|
|
library(DT)
|
||
|
|
|
||
|
|
loginUI <- function(id) {
|
||
|
|
ns <- NS(id)
|
||
|
|
fluidPage(
|
||
|
|
tags$head(
|
||
|
|
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")),
|
||
|
|
textInput("pass", label = strong("Haslo")),
|
||
|
|
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) {
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|