n above?", html = TRUE, class = c("html", "character")), answers = list(structure(list(id = "lnr_ans_cacca8a",     option = "`penguins %>% \n  group_by(year) %>% \n  summarize_if(vars(c(bill_length_mm, bill_depth_mm)), sd, na.rm = TRUE)`",     value = "`penguins %>% \n  group_by(year) %>% \n  summarize_if(vars(c(bill_length_mm, bill_depth_mm)), sd, na.rm = TRUE)`",     label = structure("<code>penguins %&gt;% \n  group_by(year) %&gt;% \n  summarize_if(vars(c(bill_length_mm, bill_depth_mm)), sd, na.rm = TRUE