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)
file path from working directory
Logical. Should diffs be displayed side by side?
Logical. Should white space be ignored?
with_demoRepo({
diffQced("script/data-assembly.R")
})
#>
#> ── QC diff for: script/data-assembly.R ──
#>
#> Last QCed Revision: 1
#> Last Author: michaelm
#> ! 'michaelm' has modified 'data-assembly.R' since last QC
#> < 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