Docs: edits to copy and modify vignettes

vignettes/howto-dm-rows.Rmd

@@ -69,7 +69,7 @@ For more details on this see `vignette("howto-dm-theory")` and `vignette("howto-
 To demonstrate the use of these table modifying methods, we will create a simple `dm` object with two tables linked by a foreign key.
 Note that the `child` table has a foreign key missing (`NA`).
 
-``````{r}
+``````{r }
 library(tidyverse)
 library(dm)
 parent <- tibble(value = c("A", "B", "C"), pk = 1:3)

vignettes/setup/setup.R

@@ -21,15 +21,12 @@ knit_print.grViz <- function(x, ...) {
 
 # If input loads dm or tidyverse, we load it here to omit warnings
 input <- readLines(knitr::current_input())
-if (rlang::has_length(grep("^library[(][?\"]dm[?\"][)]", input))) {
+if (rlang::has_length(grep("^library[(]dm[)]", input))) {
   library(dm)
 }
-if (rlang::has_length(grep("^library[(][?\"]tidyverse[?\"][)]", input))) {
+if (rlang::has_length(grep("^library[(]tidyverse[)]", input))) {
   library(tidyverse)
 }
-if (rlang::has_length(grep("^library[(][?\"]dplyr[?\"][)]", input))) {
-  library(dplyr)
-}
 
 ## Link helper to enable links only on pkgdown
 href <- function(title, url) {