compare_diff

library(compareDF)

Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     

library(arsenal)

table1 <- read.csv("C:\\Users\\alucic2\\Documents\\PSS10_old.csv", stringsAsFactors = FALSE) # reading Art's table 
table2 <- read.csv("C:\\Users\\alucic2\\Documents\\PartReg_check.csv", stringsAsFactors = FALSE) #reading updated participant registration table that includes the latest participation level

comp <- compare_df(table1, table2, c("CohortParticipantId")) # how are the CohortParticipantId columns different in two tables?

Creating comparison table...
Truncating HTML diff table to 100 rows...
Loading required namespace: htmlTable
Registered S3 methods overwritten by 'htmltools':
  method               from         
  print.html           tools:rstudio
  print.shiny.tag      tools:rstudio
  print.shiny.tag.list tools:rstudio
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio
Creating HTML table for first 100 rows

print(comp$html_output) #print the summary of differences

comp_summary <- summary(comparedf(table1, table2, by = "CohortParticipantId"))
print(comp_summary) # prints out the summary of differences as a table

Summary of data.frames

version	arg	ncol	nrow
x	table1	2	2204
y	table2	2	647

NA

Summary of overall comparison

statistic	value
Number of by-variables	1
Number of non-by variables in common	1
Number of variables compared	1
Number of variables in x but not y	0
Number of variables in y but not x	0
Number of variables compared with some values unequal	1
Number of variables compared with all values equal	0
Number of observations in common	2204
Number of observations in x but not y	0
Number of observations in y but not x	37
Number of observations with some compared variables unequal	495
Number of observations with all compared variables equal	1709
Number of values unequal	495

NA

Variables not shared

No variables not shared

NA

Other variables not compared

No other variables not compared

NA

Observations not shared

version	CohortParticipantId	observation
y	E-0271-01	71
y	E-0280-01	80
y	E-0308-01	108
y	E-0346-01	146
y	E-0385-01	185
y	E-0411-01	211
y	E-0470-01	270
y	E-0498-01	298
y	E-0530-01	330
y	E-0532-01	332
y	E-0543-01	343
y	E-0602-01	402
y	E-0661-01	461
y	E-0662-01	462
y	E-0664-01	464
y	E-0669-01	469
y	E-0680-01	480
y	E-0697-01	497
y	E-0707-01	507
y	E-0713-01	513
y	E-0715-01	515
y	E-0716-01	516
y	E-0721-01	521
y	E-0743-01	543
y	E-0744-01	544
y	E-0760-01	560
y	E-0784-01	583
y	E-0793-01	592
y	E-0841-01	639
y	E-0842-01	640
y	E-0844-01	641
y	E-0845-01	642
y	E-0846-01	643
y	E-0848-01	644
y	E-0849-01	645
y	E-0850-01	646
y	E-0851-01	647

NA

Differences detected by variable

var.x	var.y	n	NAs
ParticipantLevelId	ParticipantLevelId	495	0

NA

Differences detected (485 not shown)

var.x	var.y	CohortParticipantId	values.x	values.y	row.x	row.y
ParticipantLevelId	ParticipantLevelId	E-0215-01	0	-1	10	15
ParticipantLevelId	ParticipantLevelId	E-0215-01	0	-1	1717	15
ParticipantLevelId	ParticipantLevelId	E-0215-01	0	-1	763	15
ParticipantLevelId	ParticipantLevelId	E-0217-01	0	-1	1719	17
ParticipantLevelId	ParticipantLevelId	E-0217-01	0	-1	399	17
ParticipantLevelId	ParticipantLevelId	E-0217-01	0	-1	12	17
ParticipantLevelId	ParticipantLevelId	E-0217-01	0	-1	765	17
ParticipantLevelId	ParticipantLevelId	E-0229-01	0	-1	777	29
ParticipantLevelId	ParticipantLevelId	E-0229-01	0	-1	1730	29
ParticipantLevelId	ParticipantLevelId	E-0229-01	0	-1	407	29

NA

Non-identical attributes

No non-identical attributes

NA