Food selector based on a bigger table, used to provide current diet information.
Examples
foods <- c('Bread', 'Vegetables', 'Red meat')
select_diet(data_diet = all_diet, tag_food = foods)
#> # A tibble: 3 × 4
#> food_name intake_mean intake_lwr intake_upr
#> <chr> <dbl> <dbl> <dbl>
#> 1 Bread 188. 18.8 344.
#> 2 Vegetables 166. 16.6 420.
#> 3 Red meat 126. 12.6 300.