#{r} #| output: false #library(readxl) #library(dplyr) #library(DT) #library(googlesheets4) #options(gargle_oauth_email = "adhollander@ucdavis.edu") #

#{r} #meatsellers <- read_sheet("1yeXynSGv-nMgy2nFRo2MttVR2V5-NwA3aToY5V7Ve8o") #datatable(meatsellers) # #