R/spada_ui.R

In spada: A 'shiny' Package for Data Analysis

# Function with the ui of spada.R
spada_ui <- function(conf){
  tagList(

    # favicon
    tags$head(tags$link(rel = 'icon', href = 'spada/favicon.ico')),

    busyIndicatorOptions(
      spinner_type = 'bars2',
      spinner_color = main_color,
      fade_opacity = '0.1'
    ),

    useBusyIndicators(),

    # css style for waiter screen ---------------------------------------------
    tag_js_waiter_text,

    useWaiter(),

    waiter_screen,

    show_startup_screen(),

    # close the app ---------
    tag_js_exit,

    page_navbar(
      id = 'navbar',
      theme = spada_bs_theme(conf$theme),
      title = 'Spada',
      navbar_options = navbar_options(
        bg = navbar_bg,
        underline = F
      ),

      # page sidebar ----------------------------------------------------------
      sidebar = sidebar_ui('sidebar'),

      # page data -------------------------------------------------------------
      nav_panel(
        'Data',
        icon = bs_icon('info-square-fill'),

        card(
          full_screen = T,
          card_body(
            class = 'big-card',
            navset_card_pill(
              id = 'navset_card_pill_data',
              nav_panel('Highlights', data_highlights_ui('pD_highlights')),
              nav_panel('Metadata', metadata_ui('pD_metadata')),
              nav_panel('Overview', data_overview_ui('pD_overview')),
              nav_panel('Data', data_ui('pD_data')),
              nav_panel('Import', import_file_ui('pD_import')),
              nav_panel('Export', export_file_ui('pD_export'))
            )
          )
        )
      ),

      # page edit -------------------------------------------------------------
      nav_panel(
        'Edit',
        icon = icon('screwdriver-wrench'),

        card(
          full_screen = T,
           card_body(
             class = 'big-card',
             layout_columns(
               navset_card_pill(
                 nav_panel(
                   'Calculate',
                   calculate_cols_ui('pE_calculate_cols')
                 ),
                 nav_panel('Convert', convert_cols_ui('pE_convert_cols')),
                 nav_panel('Duplicates', duplicates_ui('pE_duplicates')),
                 nav_panel(
                   'Filter',
                   layout_column_wrap(
                     filter_rows_ui('pE_filter_rows'),
                     select_cols_ui('pE_filter_sel_cols'),
                   )
                 ),
                 nav_panel('Join', join_ui('pE_join')),
                 nav_panel(
                   'Order',
                   layout_column_wrap(
                     order_rows_ui('pE_order_rows'),
                     order_cols_ui('pE_order_cols')
                   )
                 ),
                 nav_panel('Rename', rename_cols_ui('pE_rename_cols')),
                 nav_panel(
                   'Summarise',
                   layout_column_wrap(
                     groupby_ui('pE_groupby'),
                     summarise_ui('pE_summarise')
                   )
                 )
               )
             )
           ),
           card_footer(data_bkp_ui('pE_bkp'), class = 'big-card-footer')
        )
      ),

      # page analysis ---------------------------------------------------------
      nav_menu(
        title = 'Analysis',
        nav_panel('Exploratory',
                  icon = bs_icon('bar-chart-line'),
                  exploratory_ui('pA_exploratory')),
        nav_panel('Descriptive Stats',
                  icon = bs_icon('list-columns-reverse'),
                  descriptive_stats_ui('pA_desc_stats')),
        nav_panel('Correlation Matrix',
                  icon = bs_icon('table'),
                  cor_matrix_ui('pA_cor_matrix')),
        nav_panel('Correlation Test',
                  icon = bs_icon('magnet'),
                  correlation_ui('pA_correlation')
        ),
        nav_panel('Normality Test',
                  icon = bs_icon('bell'),
                  normality_test_ui('pA_normality_test')
        ),
        nav_panel('One-sample t Test', icon = icon('t'), one_t_test_ui('pA_t_test')),
        nav_panel('Z Test', icon = icon('z'), z_test_ui('pA_z_test')),
        nav_panel('Linear Model', icon = bs_icon('graph-up'), lm_ui('pA_lm'))
      ), # end of analysis menu

      # output ----------------------------------------------------------------
      nav_panel(
        title = 'Output',
        icon = icon('tablet-screen-button'),
        card(
          full_screen = T,
          card_body(class = 'big-card', output_ui('pO_output'))
        )
      ),

      # menu options ----------------------------------------------------------
      nav_menu(
        title = 'Options',
        config_ui('pC'),
        nav_item(
          tags$a(
            icon('code'),
            'Reference',
            href = 'https://lgschuck.github.io/spada/',
            target = '_blank'
          )
        ),
        nav_item(
          tags$a(
            icon('book'),
            'Spada Book',
            href = 'https://lgschuck.github.io/spada_book/',
            target = '_blank'
          )
        ),
        about_spada_ui('about_spada'),
        nav_panel(
          value = 'exit',
          title = 'Exit',
          icon = icon('arrow-right-from-bracket')
        )),

      nav_item(
        tags$a(
          icon('github'),
          href = 'https://github.com/lgschuck/spada',
          target = '_blank'
        )),

      nav_spacer(),

      # active dataset --------------------------------------------------------
      nav_item(h4(textOutput('dt_act_name')) |>
                 popover(navbar_df_info_ui('navbar_df_info'),
                         placement = 'bottom',
                         options = list(customClass = 'preview-dt-popup-mini')))
    )
  )
}