Compares the local version of a script with the most recent QCed version. The output will appear in the viewer and only rows where there have been additions, deletions or modifications in the script will be shown.
diffQced(
.file,
.side_by_side = TRUE,
.ignore_white_space = FALSE,
.display_entire_file = FALSE
)file path from working directory
Logical. Should diffs be displayed side by side?
Logical. Should white space be ignored?
Logical. Should the entire file be displayed?
with_demoRepo({
diffQced("script/data-assembly.R")
})
#>
#> ── QC diff for: script/data-assembly.R ──
#>
#> Last QCed Revision: 1
#> Last Author: anderson
#> < data-assembly.R: Revision 1 > data-assembly.R: Local
#> @@ 1,5 @@ @@ 1,10 @@
#> library(tidyverse) library(tidyverse)
#> ~ > source(here::here("script", "data-ass
#> ~ : embly", "da-functions.R"))
#> src_abc <- mrgda::read_src_dir(here:: src_abc <- mrgda::read_src_dir(here::
#> here("data", "source", "STUDY-ABC")) here("data", "source", "STUDY-ABC"))
#> derived <- list(sl = list(),tv = list derived <- list(sl = list(),tv = list
#> ()) ())
#> dm_0 <- src_abc$dm %>% filter(ACTARM dm_0 <- src_abc$dm %>% filter(ACTARM
#> != "Screen Failure") != "Screen Failure")
#> derived$sl$dm <- dm_0 derived$sl$dm <- dm_0
#> ~ > pk_0 <- src_abc$pc %>% filter(PCTEST
#> ~ : == "TEST OF INTEREST")
#> ~ > derived$tv$pc <- pk_0
#> ~ > ex_1 <- src_abc$ex %>% filter(EXTRT =
#> ~ : = "DRUG OF INTEREST")
#> ~ > derived$tv$dosing <- ex_1