Commit fe04eea5 authored by Jean-Karim Heriche's avatar Jean-Karim Heriche

Added placeholders for feature selection.

parent fa2a8fd8
# Authors: Jean-Karim Heriche
#TODO
##############################
## Feature selection Module ##
##############################
ui_feature_selection <- function(id) {
ns <- NS(id)
fluidRow(
column(12,
box(id="box_alert", width= 6,
title = "Feature selection", solidHeader = TRUE, status = "primary",
tags$div(style = "line-height: 2",
tags$b("Feature selection is not implemented yet. Please come back later or consider contributing code to the app."),
)
) # End box
) # End column
) # End fluidRow
} # End ui_cluster()
feature_selection_server <- function(input, output, session) {
#TODO
}
......@@ -84,18 +84,21 @@ ui <- function(request) {
fluidRow(
ui_explore("explore_module")
)),
tabItem( tabName = "cluster",
fluidRow(
ui_cluster("cluster_module")
)),
tabItem( tabName = "annotate",
ui_annotate("annotate_module")
),
tabItem( tabName = "dimensionality_reduction",
fluidRow(
ui_dimensionality_reduction("dimensionality_reduction_module")
)),
tabItem( tabName = "annotate",
ui_annotate("annotate_module")
)
tabItem( tabName = "feature_selection",
fluidRow(
ui_feature_selection("feature_selection_module")
)),
tabItem( tabName = "cluster",
fluidRow(
ui_cluster("cluster_module")
))
) # End TabItems
) # End DashboardBody
) # End Dashboard Page
......@@ -117,8 +120,11 @@ server <- function(input,output,session){
menuItem(HTML("&nbsp;&nbsp;Input data"),tabName ="datafile", icon = icon("file-import")),
menuItem(HTML("&nbsp;&nbsp;Explore"), tabName = "explore", icon = icon("microscope")),
menuItem(HTML("&nbsp;&nbsp;Annotate"), tabName = "annotate", icon = icon("edit")),
menuItem(HTML("&nbsp;&nbsp;Dimensionality<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;reduction"), tabName = "dimensionality_reduction", icon = icon("project-diagram")),
menuItem(HTML("&nbsp;&nbsp;Cluster"), tabName = "cluster", icon = icon("asterisk"))
menuItem(HTML("&nbsp;&nbsp;Dimensionality<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;reduction"),
tabName = "dimensionality_reduction", icon = icon("cube")),
menuItem(HTML("&nbsp;&nbsp;Feature<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;selection"),
tabName = "feature_selection", icon = icon("filter")),
menuItem(HTML("&nbsp;&nbsp;Clustering"), tabName = "cluster", icon = icon("object-group"))
)})
######################
......@@ -150,6 +156,13 @@ server <- function(input,output,session){
}
}, ignoreNULL = TRUE, ignoreInit = TRUE)
# feature selection
# observeEvent(input$tabs_menu,{
# if(input$tabs_menu=="feature_selection"){
# callModule(feature_selection_server, "feature_selection_module", global_data, session)
# }
# }, ignoreNULL = TRUE, ignoreInit = TRUE)
# cluster
# observeEvent(input$tabs_menu,{
# if(input$tabs_menu=="cluster"){
......
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