Commit 0b651fbe authored by khalid's avatar khalid
Browse files

mise en forme

parent 0eb9ce8d
......@@ -975,12 +975,12 @@ generate_app <- function() {
if (passwd != "")
{
res <- res + 'user_base <- readRDS("user_base.rds")\n\n'
res <- res + ' credentials <- shinyauthr::loginServer( id = "login",data = user_base, user_col = user, pwd_col = password,sodium_hashed = TRUE, log_out = reactive(logout_init()) )\n\n'
res <- res + 'credentials <- shinyauthr::loginServer( id = "login",data = user_base, user_col = user, pwd_col = password, sodium_hashed = TRUE, log_out = reactive(logout_init()) )\n\n'
res <- res + 'logout_init <- shinyauthr::logoutServer( id = "logout",active = reactive(credentials()$user_auth)) \n\n'
res <- res + ' blockDeblock <- function(input_list, enable_inputs=F) {\n\n'
res <- res + ' for(x in setdiff(names(input_list),c("login-user_name","login-password","login-button"))){ \n\n'
res <- res + ' if(enable_inputs){ shinyjs::enable(x)} else { shinyjs::disable(x) } } \n\n'
res <- res + ' if(enable_inputs){shinyjs::enable("unlock"); shinyjs::enable("StopPipeline"); shinyjs::enable("close_session")}\n\n'
res <- res + 'blockDeblock <- function(input_list, enable_inputs=F) {\n\n'
res <- res + 'for(x in setdiff(names(input_list),c("login-user_name","login-password","login-button"))){ \n\n'
res <- res + 'if(enable_inputs){ shinyjs::enable(x)} else { shinyjs::disable(x) } } \n\n'
res <- res + 'if(enable_inputs){shinyjs::enable("unlock"); shinyjs::enable("StopPipeline"); shinyjs::enable("close_session")}\n\n'
res <- res + ' else{shinyjs::disable("unlock"); shinyjs::disable("StopPipeline"); shinyjs::disable("close_session")}\n\n'
res <- res + '}\n\n'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment