inst/application/ui/ui_normal.R

In rsquaredacademy/nse2r: Fetch Data from 'National Stock Exchange (India)'

tabPanel('Pre Open Data', value = 'tab_norm',

  fluidPage(
    fluidRow(
      column(8, align = 'left',
        h4('Pre Open'),
        p('Pre open session data of Nifty and Nifty bank.')
      ),
      column(4, align = 'right',
        actionButton(inputId='ndistlink1', label="Help", icon = icon("question-circle"),
          onclick ="window.open('https://nse2r.rsquaredacademy.com/reference/index.html#section-pre-open-data', '_blank')")
      )
    ),
    hr(),
    br(),
    fluidRow(
      column(12,
        tabsetPanel(type = 'tabs',
          tabPanel('Nifty',
            column(12,
              br(),
              dataTableOutput('preopen_nifty') %>% 
                shinycssloaders::withSpinner()
            )
          ),
          tabPanel('Nifty Bank',
            column(12,
              br(),
              dataTableOutput('preopen_nifty_bank') %>% 
                shinycssloaders::withSpinner()
            )
          )
        )
      )
    )
  )

)