s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TAK-63 fixed

Browse Source
This commit is contained in:
Robert Tarnas 2021-01-03 18:57:27 +01:00
parent 942c69fc59
commit 65987dd23f
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
app/profil_module.R
View File

@ -38,7 +38,7 @@ profilUI <- function(id) {
fluidRow( fluidRow(
column(12, column(12,
tags$span("© Copyright Wszystkie prawa zastrzeżone."))%>% tagAppendAttributes(id = 'column-copyright'), tags$span("© Copyright Wszystkie prawa zastrzeĹĽone."))%>% tagAppendAttributes(id = 'column-copyright'),
)%>% tagAppendAttributes(id = 'row-footer') )%>% tagAppendAttributes(id = 'row-footer')
@ -56,8 +56,8 @@ profilServer <- function(input, output,session) {
datebirth<-input$editAge, datebirth<-input$editAge,
gender<-input$editGender) gender<-input$editGender)
reg<-c(grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,15}$",editedPersonalData$name), reg<-c(grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,15}$",editedPersonalData$name),
grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,20}$",editedPersonalData$surname), grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,20}$",editedPersonalData$surname),
grepl("^[a-z]+[0-9]*@([a-z]{2,10}\\.)+[a-z]{2,5}$",editedPersonalData$mail)) grepl("^[a-z]+[0-9]*@([a-z]{2,10}\\.)+[a-z]{2,5}$",editedPersonalData$mail))
if(all(reg)){ if(all(reg)){
# status$status = register(result) # status$status = register(result)
@ -120,7 +120,7 @@ profilServer <- function(input, output,session) {
dateInput("editAge", label = strong("Data urodzenia") ,value=response$profil$datebirth), dateInput("editAge", label = strong("Data urodzenia") ,value=response$profil$datebirth),
selectInput("editGender", label = strong("Plec"), selectInput("editGender", label = strong("Plec"),
choices = list("Żenska" = 0, "Meska" = 1), choices = list("żenska" = 0, "meska" = 1),
selected = as.numeric(response$profil$gender)), selected = as.numeric(response$profil$gender)),
), ),
@ -160,10 +160,10 @@ profilServer <- function(input, output,session) {
tabsetPanel(type = "tabs", tabsetPanel(type = "tabs",
tabPanel("Dane profilowe", tags$div(uiOutput("profileData") tabPanel("Dane profilowe", tags$div(uiOutput("profileData")
)%>% tagAppendAttributes(class = 'content-wrapper')), )%>% tagAppendAttributes(class = 'content-wrapper')),
tabPanel("Zakładka 2", tags$div(plotlyOutput("plot2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')), tabPanel("ZakĹ‚adka 2", tags$div(plotlyOutput("plot2",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
tabPanel("Zakładka 3", tags$div(plotlyOutput("plot3",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')), tabPanel("ZakĹ‚adka 3", tags$div(plotlyOutput("plot3",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
tabPanel("Zakładka 4", tags$div(plotlyOutput("plot4",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')), tabPanel("ZakĹ‚adka 4", tags$div(plotlyOutput("plot4",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')),
tabPanel("Zakładka 5", tags$div(DT::dataTableOutput("table1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper')) tabPanel("ZakĹ‚adka 5", tags$div(DT::dataTableOutput("table1",height = "auto"))%>% tagAppendAttributes(class = 'content-wrapper'))
))%>% tagAppendAttributes(id = 'column-content') ))%>% tagAppendAttributes(id = 'column-content')
) %>% tagAppendAttributes(id = 'row-content') ) %>% tagAppendAttributes(id = 'row-content')
@ -222,13 +222,13 @@ profilServer <- function(input, output,session) {
pl <- list( pl <- list(
sSearch = "Szukaj", sSearch = "Szukaj",
sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordów", sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordĂłw",
sZeroRecords="Brak rekordów", sZeroRecords="Brak rekordĂłw",
sEmptyTable="Pusta tabela", sEmptyTable="Pusta tabela",
oPaginate= list( oPaginate= list(
sFirst="Pierwsza", sPrevious="Poprzednia",sLast="Ostatnia", sNext="Następna" sFirst="Pierwsza", sPrevious="Poprzednia",sLast="Ostatnia", sNext="NastÄ™pna"
), ),
sLengthMenu = "Pokaż _MENU_ rekordów na stronie" sLengthMenu = "PokaĹĽ _MENU_ rekordĂłw na stronie"
) )
output$table1 <- DT::renderDataTable(iris,options = list(scrollX = TRUE,language=pl)) output$table1 <- DT::renderDataTable(iris,options = list(scrollX = TRUE,language=pl))
@ -248,10 +248,10 @@ profilServer <- function(input, output,session) {
output$editName<-renderUI({ output$editName<-renderUI({
s<-toString(input$editName) s<-toString(input$editName)
if (s=="" | grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,15}$",s)==TRUE){ if (s=="" | grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,15}$",s)==TRUE){
return() return()
}else{ }else{
p("Bład: Imie powinno zaczynac sie od wielkiej litery, zawierac jedynie litery i miec dlugosc od 3 do 15 znaków",style="color:yellow") p("BĹ‚ad: Imie powinno zaczynac sie od wielkiej litery, zawierac jedynie litery i miec dlugosc od 3 do 15 znakĂłw",style="color:yellow")
} }
}) })
@ -259,10 +259,10 @@ profilServer <- function(input, output,session) {
output$editSurname<-renderUI({ output$editSurname<-renderUI({
s<-toString(input$editSurname) s<-toString(input$editSurname)
if (s=="" | grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,20}$",s)==TRUE){ if (s=="" | grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,20}$",s)==TRUE){
return() return()
}else{ }else{
p("Bład: Nazwisko powinno zaczynac sie od wielkiej litery, zawierac jedynie litery i miec dlugosc od 3 do 15 znaków",style="color:yellow") p("BĹ‚ad: Nazwisko powinno zaczynac sie od wielkiej litery, zawierac jedynie litery i miec dlugosc od 3 do 15 znaków",style="color:yellow")
} }
@ -275,7 +275,7 @@ profilServer <- function(input, output,session) {
if (s=="" | grepl("^[a-z]+[0-9]*@([a-z]{2,10}\\.)+[a-z]{2,5}$",s)==TRUE){ if (s=="" | grepl("^[a-z]+[0-9]*@([a-z]{2,10}\\.)+[a-z]{2,5}$",s)==TRUE){
return() return()
}else{ }else{
p("Bład: Mail powinien miec budowe adres@nazwa.domena",style="color:yellow") p("BĹ‚ad: Mail powinien miec budowe adres@nazwa.domena",style="color:yellow")
} }