Building a RShiny application

Our RShiny application will have the following features:

• Load a transaction file
• Calculate the product pairs and their transaction frequency, and display them
• Display the discovered communities from the product pairs dataset

Let us look at the user interface code:

ui <- fluidPage(
  navbarPage("Product Pairs",
             tabPanel("Transactions"
                      , fileInput("datafile", "select transactions csv file",
                                  accept = c(
                                    "text/csv",
                                    "text/comma-separated-values,text/plain",
                                    ".csv"
                                    )
                      )
                      , dataTableOutput("transactions")
             ),
             tabPanel("Product Pairs"
                      ,dataTableOutput("ppairs")),
             tabPanel("Community"
                      ,plotOutput("community"))
  )
)

We have three panels....