Error: unused arguments in Shiny (R) -

i wanted begin modifying few components of 1 of basic shiny example apps, keep getting error:

error: unused arguments (fluidrow(column(4, tags$hr(),  verbatimtextoutput("out1"), selectinput("in1", "options", choices =  state.name, multiple = true, selectize = false))), fluidrow(column(4,  tags$hr(), verbatimtextoutput("out2"), selectinput("in2", "options",  choices = state.name, multiple = true, selectize = false)))) 

here code:

ui.r

library(shiny) library(shinythemes)  shinyui(fluidpage(theme=shinytheme("flatly"),   #application title   headerpanel("states"),   br(),   fluidrow(     column(4,             tags$h4("choose 1 or multiple states"))   )),   fluidrow(     column(4,            tags$hr(),            verbatimtextoutput('out1'),            selectinput('in1', 'options', choices = state.name, multiple = true, selectize = false)            )   ),   fluidrow(     column(4,            tags$hr(),            verbatimtextoutput('out2'),            selectinput('in2', 'options', choices= state.name, multiple = true, selectize = false))   )) 

===============================================

server.r

sessioninfo() install.packages("shiny") library(shiny)  view(headcount) attach(headcount) headcount.crn=as.array(crn)   shinyserver(function (input, output, session) {   output$out1 <- renderprint(input$in1)   output$out2 <- renderprint(input$in2)   }) 

that error means messed commas or brackets somewhere. in case, there's 1 many closing brackets ()) @ end of first fluidrow that's closing fluidpage prematurely