inst/rectoolShiny2/ui.R

In Pooja-Rajkumar/rectools: Advanced Recommender System

library(shiny)

fluidPage(

    titlePanel('Rectools'), #title

    sidebarLayout(
        sidebarPanel(
            #allows user to pick between the two different datasets
            #the subset is currently the default because it works
            selectInput("dataset", "Choose a dataset:",
                choices = c("lme4 df")),

#add a loading text output

            #allows the user to pick the method by clicking a button
            #recosystems is the default because its the only one with a table
            radioButtons("radio", "Choose method:",
                choices = c("Recosystems" , "Nearest K Neighbor", "Hybrid", "Display Data"),
                selected = "Recosystems"),

            conditionalPanel(
                condition = "input.radio == 'Nearest K Neighbor'",
                uiOutput("var1"),
                uiOutput("var2")
            )
        ),

        mainPanel(
        #based on which radio button the user clicks, the output is different
        #each conditional panel coordinates with a model
        conditionalPanel(
            condition = "input.radio == 'Recosystems'", tableOutput('text2')),
        conditionalPanel(
            condition = "input.radio == 'Nearest K Neighbor'", tableOutput('text3')),
        conditionalPanel(
            condition = "input.radio == 'Hybrid'", tableOutput('text4')),
        conditionalPanel(
            condition = "input.radio == 'Display Data'", tableOutput('table'))
        )
    )
)