inst/survey/surveyapp/ui_tabs_optimism.R

In eamoakohene/bsurvey: BEAMA Trends Survey

get_ui_tab_optimism <- function(){

  get_ui_tab_template(
    tab="optimism",qn=42,
    yr_range = slider_range_yr, yr_select = slider_select_yr,
    qtr_range = slider_range_qtr, qtr_select = slider_select_qtr )

}