ui <-
fluidPage
(theme =
shinytheme
(
"superhero"
),
navbarPage
(
"Welcome to GFG"
,
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
(
"Tab 2"
,
h3
("Hello !! Here is the Plot Graph,
Slider, Dropdown and Date picker!!!"))),
hr
(),
(
plotOutput
(
"plot"
)
),
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:"
),
),
mainPanel
(
h3
(
"Selected values:"
),
textOutput
(
"selected_value"
),
textOutput
(
"selected_option"
),
textOutput
(
"selected_date"
),
)
)