I am trying to create an R application that searches the web for financial data of a company at a given year (income sheet, balance sheet, and cash flow statement)

I have found a library that primarily has this functionality. Methods include

getIncome < - (Symbol , Year)

getBalance < - (Symbol, Year)

This is my code for the UI:

library(shiny) library(finreportr)

shinyUI(fluidPage(titlePanel(h1( "Income/Balance sheets finder" )),

sidebarLayout( sidebarPanel( #This is the search area for inputting the name of the company textInput("searchInput", "Enter Name of company (StockSymbol)", symbol = ""), actionButton("searchBtn", "Search"), #options for chossing the type of the sheet radioButtons("sheetTypeBtn", "Choose the type of sheet:", list("Balance", "Income"),""), #slider to choose the date looking for sliderInput("datePicker","Select the date Desired: ",min = 2009,max = 2019,value = )), #this is the area where the outtput will be displayed mainPanel( ("Docs are viewed here!"), textOutput("searchOutput") ))))

This is my code for the server

library(shiny)

shinyServer( function(input,output){ #outputs output$searchOutput <- renderText(input$searchInput) output$sheetTypeOutput <- renderText(input$sheetTypeBtn) output$datePickedOutput <- renderText(input$datePicker) } )

I need help implementing the methods with the UI. Thank you