From 65987dd23f2f236c5f7df70001b9eecd6e34df2a Mon Sep 17 00:00:00 2001
From: Robert Tarnas <robtar@st.amu.edu.pl>
Date: Sun, 3 Jan 2021 18:57:27 +0100
Subject: [PATCH] TAK-63 fixed

---
 app/profil_module.R | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/app/profil_module.R b/app/profil_module.R
index 389731f..df3826e 100644
--- a/app/profil_module.R
+++ b/app/profil_module.R
@@ -38,7 +38,7 @@ profilUI <- function(id) {
   
   fluidRow(
     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')
   
@@ -56,8 +56,8 @@ profilServer <- function(input, output,session) {
     datebirth<-input$editAge,
     gender<-input$editGender)
     
-    reg<-c(grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,15}$",editedPersonalData$name),
-           grepl("^[A-Z][a-zA-ZĄąĆćĘꣳŃńÓ󌜏źŻż]{2,20}$",editedPersonalData$surname),
+    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]+[0-9]*@([a-z]{2,10}\\.)+[a-z]{2,5}$",editedPersonalData$mail))
     if(all(reg)){
       # status$status = register(result)
@@ -120,7 +120,7 @@ profilServer <- function(input, output,session) {
                         dateInput("editAge", label = strong("Data urodzenia") ,value=response$profil$datebirth),
                         
                         selectInput("editGender", label = strong("Plec"),
-                                    choices = list("Żenska" = 0, "Meska" = 1), 
+                                    choices = list("żenska" = 0, "meska" = 1), 
                                     selected = as.numeric(response$profil$gender)),
                       
                         ),
@@ -160,10 +160,10 @@ profilServer <- function(input, output,session) {
                tabsetPanel(type = "tabs",
                            tabPanel("Dane profilowe", tags$div(uiOutput("profileData")
                            )%>% 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 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 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 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'))
                            
                ))%>% tagAppendAttributes(id = 'column-content')
       ) %>% tagAppendAttributes(id = 'row-content')
@@ -222,13 +222,13 @@ profilServer <- function(input, output,session) {
   
   pl <- list(
     sSearch = "Szukaj",
-    sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordów",
-    sZeroRecords="Brak rekordów",
+    sInfo="Wyniki od _START_ do _END_ z _TOTAL_ rekordĂłw",
+    sZeroRecords="Brak rekordĂłw",
     sEmptyTable="Pusta tabela",
     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))
@@ -248,10 +248,10 @@ profilServer <- function(input, output,session) {
   output$editName<-renderUI({
     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()
     }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({
     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()
     }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){
       return()
     }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")
       
       
     }