inst/shiny/GUI/ui.R

In unimi-dse/1908254a: Currency Exchange Rate Package - with respect to CNH

##UI
ui <- fluidPage(


  # App title
  titlePanel("Currency Exchange Rates"),

  # Sidebar layout
  sidebarLayout(

    # Sidebar panel
    sidebarPanel(

      selectInput(inputId="data_id",
                 label = ("Select currency"),
                  choices= list('CNH/EUR', 'CNH/USD', 'CNH/GBP', 'CNH/JPY', 'CNH/CHF' ), selected = 'EUR/CNH'

   )
  )   ,


    # Main panel
    mainPanel(

      # Output
      shinycssloaders::withSpinner(plotly::plotlyOutput(outputId = "ecplotly"),color="#0384fc")

    )
  )
)