Remove explicit return() calls in content_embedding.R

[Copilot]

Four functions in R/content_embedding.R used explicit return(), which is unnecessary in R due to implicit return behavior (last evaluated expression is returned automatically).

Changes

• slide_url: return(var_url) → var_url
• try_include_tweet: return(try(...)) → try(...)
• embed_youtube_alt (HTML branch): return(knitr::include_url(url)) → knitr::include_url(url)
• embed_youtube_alt (non-HTML branch): return(knitr::include_graphics(...)) → knitr::include_graphics(...)

# Before
slide_url <- function(df_url, title, slide = NULL) {
  var_url <- paste0(df_url$link[df_url$title == title], slide)
  return(var_url)
}

# After
slide_url <- function(df_url, title, slide = NULL) {
  var_url <- paste0(df_url$link[df_url$title == title], slide)
  var_url
}

Original prompt

---

This section details on the original issue you should resolve

<issue_title>Fix 4 Style issues in R\content_embedding.R</issue_title>
<issue_description>CodeFactor found multiple issues:

Use implicit return behavior; explicit return() is not needed.

• R\content_embedding.R:15
• R\content_embedding.R:34
• R\content_embedding.R:52
• R\content_embedding.R:59</issue_description>

Comments on the Issue (you are @copilot in this section)

• Fixes Fix 4 Style issues in R\content_embedding.R #5

---

✨ Let Copilot coding agent set things up for you — coding agent works faster and does higher quality work when set up for your repo.