no-code-app/ui.R at main · aphrc-nocode/no-code-app · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
#Only UI files and R packages should be included
#Load R packages
source(paste0(getwd(), "/ui/load_r_packages.R"))

## Language change utilities
source("R/shinyutilities.R")

source(paste0(getwd(), "/server/maskedpassinput.R"))
# U1 Add this line of code to call automl_UI from UI folder
source("ui/automl_ui.R")
# Automl controls
source("ui/automl_controls_ui.R")
source("ui/train_model_ui.R")

source(paste0(getwd(), "/ui/tooltip.R"))

# Load UI function before deploy_model_ui()
source("ui/deploy_model_ui.R")
#Load Headertag
source(paste0(getwd(), "/ui/login_credentials.R"))

source(paste0(getwd(), "/ui/headertag.R"))
#Load App Theme
source(paste0(getwd(), "/ui/appTheme.R"))
#Load Header
source(paste0(getwd(), "/ui/header.R"))
#Load Footer
source(paste0(getwd(), "/ui/footer.R"))
source(paste0(getwd(), "/ui/homepage.R"))

source("ui/dashboard_body.R")
#Sidebar
aphrcSiderbar <- dashboardSidebar(
  width = "20%",
  sidebarMenuOutput("dynamic_meinu_aphrc")
)
#menuItemOutput("dynamic_meinu_aphrc"),
sidebarMenuOutput("dynamic_meinu_aphrc")
#menuItem("AutoML", tabName = "automl_tab", icon = icon("robot"))

#Body
fluidPage(
  useShinyjs(),
  useWaiter(),

  waiterShowOnLoad(
    color = "#FFF",
    html = spin_loaders(id = 2, style="width:56px;height:56px;color:#7BC148;"),
    logo=  "WWW/aphrc.png"),

  shiny::tags$head(
    tags$link(
      rel = "stylesheet",
      type = "text/css",
      href = "anon_custom.css?v=20260129"
    ),
    tags$link(
      rel = "stylesheet",
      href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.5.0/css/all.min.css"
    )
  ),

    div(
      id = "auth_wrapper1",   # <– will be shown after spinner
      login::is_logged_in(
        id = app_login_config$APP_ID, header
      ),

      aphrcHeader <- dashboardHeader(disable = TRUE),

      login::is_not_logged_in(
        id = app_login_config$APP_ID,
        div(
          class = "auth-container",
          br(),
          div(
            class = "auth-title text-center",
            tags$img(src = "aphrc.png", height = "80px", style = "margin-bottom: 15px;"),
            h3("Welcome to Nocode Platform")
          ),
          div(
            class = "toggle-buttons",
            actionButton("show_login",  "Login", class = "btn btn-outline-success"),
            actionButton("show_signup", "Sign Up", class = "btn btn-outline-success"),
            actionButton("show_reset",  "Reset Password", class = "btn btn-outline-success")
          ),
          div(id = "login_form",
              login::login_ui(id = app_login_config$APP_ID)
          ),
          div(id = "signup_form", style = "display:none;",
              login::new_user_ui(id = app_login_config$APP_ID)
          ),
          div(id = "reset_form", style = "display:none;",
              login::reset_password_ui(id = app_login_config$APP_ID)
          )
        )
      ),

      login::is_logged_in(
        id = app_login_config$APP_ID,
        div(dashboardPage(aphrcHeader, aphrcSiderbar, aphrcBody, skin = "green"))
      ),

      login::is_logged_in(
        id = app_login_config$APP_ID,
        div(footer)
      )
    ))