Create An Interactive Web App Using Shiny Package In R (original) (raw)

`#UI Defined ui <- fluidPage(theme = shinytheme("superhero"), navbarPage(

                  # mainPanel
                "Welcome to GFG",
              
                  # Tab 1
                tabPanel("Tab 1",
                         mainPanel(
                             tags$h3("Register to GFG:"),
                             textInput("txt1", "Name:", ""),
                             textInput("txt2", "Surname:", ""),
                              textInput("txt3", "Email:", ""),
                              textInput("txt4", "Mobile.No:", ""),
                             textInput("txt5", "Education:", ""),
                             textInput("txt6", "College:", ""),
                             textInput("txt7", "Programming Language:", ""),
                             textInput("txt8", "Area of Interest:", ""),
                             
                             hr(),
                            h4("Here is your Details"),
                           verbatimTextOutput("txtout"),
                         )),
                  # TabPanel
                tabPanel("Tab 2",
                         h3("Hello !! Here is the Plot Graph,
                             Slider, Dropdown and Date picker!!!"))),
                         hr(),
                         (

plotOutput("plot") #PlotGraph ), hr(), sidebarPanel( sliderInput("slider", "Select a value:", min = 10, max = 500, value = 125), selectInput("dropdown", "Select an option:", c("Python", "JAVA", "C++")), dateInput("datepicker", "Select a date:"), ),#SidebarPanel mainPanel( h3("Selected values:"), textOutput("selected_value"), textOutput("selected_option"), textOutput("selected_date"), ) )

`