Why this shiny Ui code always error?. Please help me. thank youu.
Code :
tabsetPanel(id="mainPanel",
type = "pills"
tabPanel("Haze Trajectory",
hr(),
tabsetPanel(id ='Foo',
type = "tab",
tabPanel('Initial point from hotspot sequence',
sidebarLayout(fluid = TRUE,
sidebarPanel(h4('HYSPLIT Simulation'),
h5('Initial Point :'),
selectInput('date_Period',
'Hotspot Sequence',
choices = c(Choose = '',
....),
selectize = TRUE),
actionButton('go_sim', 'Start'),
uiOutput("warnFeb"),
width = 3),
mainPanel(fluid = TRUE,
h3(textOutput('caption_traj')),
h5('Description and visualization of haze trajectory simulation'),
leafletOutput('showplotleaflet',
height = 500),
h4(textOutput('titleSimulation3')),
dataTableOutput('simulation_traj')
)
)
)
Error :
Warning: Error in : $ operator is invalid for atomic vectors
98: renderWidget
97: transform
96: func
94: f
93: Reduce
84: do
83: hybrid_chain
82: origRenderFunc
81: output$showplotleaflet
1: runApp