R/app_ui.R

In predictoR: Predictive Data Analysis System

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @import rlang
#' @import traineR 
#' @import loadeR 
#' @import shinyAce
#' @import echarts4r
#' @import htmltools
#' @import shinycustomloader
#' @import shinydashboardPlus
#' @importFrom grDevices dev.flush dev.hold
#' @importFrom rpart.plot prp
#' @importFrom DT tableHeader formatStyle styleEqual
#' @importFrom glmnet cv.glmnet
#' @importFrom utils read.table write.csv head
#' @importFrom grDevices adjustcolor hcl rainbow dev.cur
#' @importFrom xgboost xgb.importance xgb.plot.importance
#' @importFrom shinyjs useShinyjs show hide addClass removeClass runjs 
#' @importFrom stats cor cutree hclust median na.omit as.formula loess model.frame 
#' @importFrom stats pnorm qnorm sd lm qt symnum cov2cor pt model.matrix predict predict.lm density
#' @importFrom shinydashboard sidebarMenu menuItem menuSubItem dashboardBody tabItems tabItem tabBox
#' @importFrom graphics abline legend lines pairs par points polygon rect smoothScatter strwidth text hist identify
#' @keywords internal
#' @noRd

app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # List the first level UI elements here 
    shinydashboardPlus::dashboardPage(
      title = "PROMiDAT",
      shinydashboardPlus::dashboardHeader(
        title = HTML(paste0(
          '<span class = "logo-lg">
            <a href = "https://promidat.com" target = "_blank">
              <img src = "img/logo.png" width = "100%" style = "padding-top:2px; padding-bottom:6px;">
            </a>
          </span>',
          '<img src= "img/logo_small.png" height = 50%, width = "120%">'
        )), controlbarIcon = icon("gears")
      ),
      dashboardSidebar(
        sidebarMenu(
          id = "principal",
          tags$div(style = "padding-top:10px;"),
          menuItem(labelInput("data"), icon = icon("database"),
                   tabName = "cargar"),
          menuItem(labelInput("basico"), tabName = "exploratorio",
                   icon = icon("square-poll-vertical"),
                   menuSubItem(labelInput("resumen"), "resumen",
                               icon = icon("sort-numeric-down")),
                   menuSubItem(labelInput("normalidad"), "normalidad",
                               icon = icon("chart-bar")),
                   menuSubItem(labelInput("dispersion"), "dispersion",
                               icon = icon("chart-line")),
                   menuSubItem(labelInput("distribucion"), "distribucion",
                               icon = icon("chart-area")),
                   menuSubItem(labelInput("correlacion"), "correlacion",
                               icon = icon("table")),
                   menuSubItem(labelInput("poderpred"), "poderPred",
                               icon = icon("rocket"))
          ),
          menuItem(labelInput("tt"), tabName = "TrainTest", 
                   icon = icon("th-list"),
                   menuSubItem(labelInput("knnl"), tabName = "knn",
                               icon = icon("dot-circle")),
                   menuSubItem(labelInput("svml"),tabName = "svm",
                               icon = icon("vector-square")),
                   menuSubItem(labelInput("dtl"), tabName = "tree",
                               icon = icon("tree")),                                         
                   menuSubItem(labelInput("rfl"), tabName = "rndf",
                               icon = icon("sitemap")),
                   menuSubItem(labelInput("bl"), tabName = "boost",
                               icon = icon("rocket")),
                   menuSubItem(labelInput("xgb"),tabName = "xgb",
                               icon = icon("project-diagram")),
                   menuSubItem("Bayes", tabName = "bayes",
                               icon = icon("dice")),
                   menuSubItem(labelInput("nn"),tabName = "nnet",
                               icon = icon("brain")),
                   menuSubItem(labelInput("rl"),tabName = "reg",
                               icon = icon("chart-line")),
                   menuSubItem(labelInput("rlr"),tabName = "regp",
                               icon = icon("wave-square")),
                   menuSubItem(labelInput("lda"),tabName = "lda",
                               icon = icon("chart-gantt")),
                   menuSubItem(labelInput("qda"),tabName = "qda",
                               icon = icon("superscript"))),
          menuItem(labelInput("crossval"), tabName = "cv",
                   icon = icon("gears"),
                   menuSubItem(labelInput("knnl"), tabName = "cv_knn",
                               icon = icon("dot-circle")),
                   menuSubItem(labelInput("svml"), tabName = "cv_svm",
                               icon = icon("vector-square")),
                   menuSubItem(labelInput("dtl"), tabName = "cv_tree",
                               icon = icon("tree")),                                         
                   menuSubItem(labelInput("rfl"), tabName = "cv_rndf",
                               icon = icon("sitemap")),
                   menuSubItem(labelInput("bl"), tabName = "cv_boost",
                               icon = icon("rocket")),
                   menuSubItem(labelInput("xgb"), tabName = "cv_xgb",
                               icon = icon("project-diagram")),
                   menuSubItem("Bayes", tabName = "cv_bayes",
                               icon = icon("dice")),
                   menuSubItem(labelInput("rl"), tabName = "cv_reg",
                               icon = icon("chart-line")),
                   menuSubItem(labelInput("rlr"), tabName = "cv_regp",
                               icon = icon("wave-square")),
                   menuSubItem(labelInput("lda"), tabName = "cv_lda",
                               icon = icon("chart-gantt")),
                   menuSubItem(labelInput("qda"), tabName = "cv_qda",
                               icon = icon("superscript"))
                   ),
          menuItem(labelInput("comparacion"), tabName = "evaluar", 
                   icon = icon("balance-scale")),
          menuItem(labelInput("predicnuevos"), tabName = "predNuevos", 
                   icon = icon("table")),
          menuItem(labelInput("acercade"), tabName = "acercaDe",
                   icon = icon("circle-info")),
          hr(),
          menu.idioma(),
          hr(), 
          img(src = "img/predictoR.png", style = "margin-left: auto;margin-right: auto;display: block;width: 80%;"),
          tags$div(
            style = "display:none;",
            sliderInput("auxs", min = 2, value = 2, label = "auxs", max = 10),
            radioSwitch("auxr", "auxr", c("opc1", "opc2")),
            colourpicker::colourInput("auxc", NULL, value = "red")
          )
        )
      ),
      dashboardBody(
        
        tabItems(
          
          # Carga de Datos
          tabItem(tabName = "cargar",  
                  loadeR::mod_carga_datos_ui("carga_datos_ui_1", labelInput("data"))),
          # Resumen Numérico
          tabItem(tabName = "resumen", 
                  loadeR::mod_r_numerico_ui("r_numerico_ui_1")),
          
          # Test de Normalidad
          tabItem(tabName = "normalidad", 
                  loadeR::mod_normal_ui("normal_ui_1")),
          
          # Dispersión
          tabItem(tabName = "dispersion",
                  loadeR::mod_dispersion_ui("dispersion_ui_1")),
          
          # Distribuciones
          tabItem(tabName = "distribucion", 
                  loadeR::mod_distribuciones_ui("distribuciones_ui_1")),
          
          # Correlaciones
          tabItem(tabName = "correlacion", 
                  loadeR::mod_correlacion_ui("correlacion_ui_1")),
          
          # Poder Predictivo
          tabItem(tabName = "poderPred", 
                  mod_poder_pred_ui("poder_pred_ui_1")),
          
          ###################### Entrenamiento-Prueba #########################
          tabItem(tabName = "knn", mod_train_test_ui("tt_knn_ui", "knn")),
          tabItem(tabName = "svm", mod_train_test_ui("tt_svm_ui", "svm")),
          tabItem(tabName = "tree", mod_train_test_ui("tt_tree_ui", "tree")),
          tabItem(tabName = "rndf", mod_train_test_ui("tt_rndf_ui", "rndf")),
          tabItem(tabName = "boost", mod_train_test_ui("tt_boost_ui", "boost")),
          tabItem(tabName = "xgb", mod_train_test_ui("tt_xgb_ui", "xgb")),
          tabItem(tabName = "bayes", mod_train_test_ui("tt_bayes_ui", "bayes")),
          tabItem(tabName = "nnet", mod_train_test_ui("tt_nnet_ui", "nnet")),
          tabItem(tabName = "reg", mod_train_test_ui("tt_reg_ui", "reg")),
          tabItem(tabName = "regp", mod_train_test_ui("tt_regp_ui", "regp")), 
          tabItem(tabName = "lda", mod_train_test_ui("tt_lda_ui", "lda")),
          tabItem(tabName = "qda", mod_train_test_ui("tt_qda_ui", "qda")),
          
          ######################## Validación Cruzada #########################
          tabItem(tabName = "cv_knn", mod_cross_val_ui("cv_knn_ui", "knn")),
          tabItem(tabName = "cv_svm", mod_cross_val_ui("cv_svm_ui", "svm")),
          tabItem(tabName = "cv_tree", mod_cross_val_ui("cv_tree_ui", "tree")),
          tabItem(tabName = "cv_rndf", mod_cross_val_ui("cv_rndf_ui", "rndf")),
          tabItem(tabName = "cv_boost", mod_cross_val_ui("cv_boost_ui", "boost")),
          tabItem(tabName = "cv_xgb", mod_cross_val_ui("cv_xgb_ui", "xgb")),
          tabItem(tabName = "cv_bayes", mod_cross_val_ui("cv_bayes_ui", "bayes")),
          tabItem(tabName = "cv_reg", mod_cross_val_ui("cv_reg_ui", "reg")),
          tabItem(tabName = "cv_regp", mod_cross_val_ui("cv_regp_ui", "regp")),
          tabItem(tabName = "cv_lda", mod_cross_val_ui("cv_lda_ui", "lda")),
          tabItem(tabName = "cv_qda", mod_cross_val_ui("cv_qda_ui", "qda")),
          
          # Evaluación de Modelos
          tabItem(tabName = "evaluar", mod_evaluacion_ui("evaluacion_ui_1")),
          
          # Predicción Individuos Nuevos
          tabItem(tabName = "predNuevos", mod_ind_nuevos_ui("ind_nuevos_ui_1")), 
          
          # Acerca De
          tabItem(tabName = "acercaDe", mod_acercade_ui("acercade_ui_1"))
        )
      ),
      dashboardControlbar(
        width = 500,
        div(
          style = "margin-right: 15px; margin-left: 15px;",
          h3(labelInput('code')), hr(),
          codigo.monokai("fieldCode", height = "70vh"),
          downloadButton("btn_code", NULL, style = "width: 100%;")
        )
      )
    )
  )
}

#' Add external Resources to the Application
#' 
#' This function is internally used to add external 
#' resources inside the Shiny application. 
#' 
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function() {
  
  jsCode <- '
  get_inputs = function() {
  var rowname = $("#carga_datos_ui_2-rowname")[0].checked;
  var header = $("#carga_datos_ui_2-header")[0].checked;
  var sep = $("input[name=\'carga_datos_ui_2-sep\']:checked").val();
  var dec = $("input[name=\'carga_datos_ui_2-dec\']:checked").val();
  var nas = $("input[name=\'carga_datos_ui_2-deleteNA\']:checked").val();

  Shiny.setInputValue("ind_nuevos_ui_1-jsrowname", rowname);
  Shiny.setInputValue("ind_nuevos_ui_1-jsheader", header);
  Shiny.setInputValue("ind_nuevos_ui_1-jssep", sep);
  Shiny.setInputValue("ind_nuevos_ui_1-jsdec", dec);
  Shiny.setInputValue("ind_nuevos_ui_1-jsnas", nas);
  }
  
  get_inputs_xlsx = function() {
  var rowname = $("#carga_datos_ui_2-rowname_xlsx")[0].checked;
  var header = $("#carga_datos_ui_2-header_xlsx")[0].checked;
  var num_hoja = $("#carga_datos_ui_2-num_hoja").val();
  var fila_inicio = $("#carga_datos_ui_2-fila_inicio").val();
  var col_inicio = $("#carga_datos_ui_2-col_inicio").val();
  var fila_final = $("#carga_datos_ui_2-fila_final").val();
  var col_final = $("#carga_datos_ui_2-col_final").val();
  var deleteNA_xlsx = $("input[name=\'carga_datos_ui_2-deleteNA_xlsx\']:checked").val();

  Shiny.setInputValue("ind_nuevos_ui_1-jsrowname_xlsx", rowname);
  Shiny.setInputValue("ind_nuevos_ui_1-jsheader_xlsx", header);
  Shiny.setInputValue("ind_nuevos_ui_1-jsnum_hoja", num_hoja);
  Shiny.setInputValue("ind_nuevos_ui_1-jsfila_inicio", fila_inicio);
  Shiny.setInputValue("ind_nuevos_ui_1-jscol_inicio", col_inicio);
  Shiny.setInputValue("ind_nuevos_ui_1-jsfila_final", fila_final);
  Shiny.setInputValue("ind_nuevos_ui_1-jscol_final", col_final);
  Shiny.setInputValue("ind_nuevos_ui_1-jsdeleteNA_xlsx", deleteNA_xlsx);
}
  
  get_file = function() {
  $("#carga_datos_ui_2-run_data").on("click", function(){
        var file_type = $("#carga_datos_ui_2-file_type").find(".active")[0].firstElementChild.getAttribute("data-value")
        Shiny.setInputValue("ind_nuevos_ui_1-jsfile_type", file_type);
        });
}
  '
add_resource_path('www', app_sys('app/www'))
add_resource_path('img', app_sys('app/img'))
add_resource_path('lang', app_sys('app/lang'))

tags$head(
  favicon(),
  bundle_resources(
    path = app_sys('app/www'),
    app_title = 'predictoR'
  ),
  shinyjs::useShinyjs(),
  tags$script(HTML(jsCode))
  
  # Add here other external resources
  # for example, you can add shinyalert::useShinyalert() 
)
}