Looping Likert Summary Tables in RMarkdown or Quarto