nswer", "tutorial_quiz_answer")), structure(list(id = "lnr_ans_8dfc285", option = "`penguins %>% \n  group_by(year) %>% \n  summarize_at(vars(c(starts_with('bill'))), sd, na.rm = TRUE)`",     value = "`penguins %>% \n  group_by(year) %>% \n  summarize_at(vars(c(starts_with('bill'))), sd, na.rm = TRUE)`",     label = structure("<code>penguins %&gt;% \n  group_by(year) %&gt;% \n  summarize_at(vars(c(starts_with(&#39;bill&#39;))), sd, na.rm = TRUE)<\u002fcode>", html = TRUE, class = c("html",     "character"))