anonymize db files

[tobiasgerstenberg]

worker ids need to be removed before making a project public.

1. remove the current participant.db files from the repo see here

2. save script below as anonymize_participants_db.R in the same folder as the participants.db file you want to anonymize

# Load packages -------------------------------------------------------------------------------
library(RSQLite)
library(tidyverse)

# Handle input --------------------------------------------------------------------------------
args = commandArgs(T)

filename = args[1]
tablename = args[2]

# Anonymize table -----------------------------------------------------------------------------
con = dbConnect(SQLite(),dbname = paste0(filename));
df.table = dbReadTable(con,tablename)
dbDisconnect(con)

df.table = df.table %>%
	mutate(datastring = str_replace_all(datastring,uniqueid,as.character(row_number())),
				 datastring = str_replace_all(datastring,workerid,as.character(row_number()))) %>%
	select(-uniqueid,-workerid,-ipaddress)

con = dbConnect(SQLite(), paste0(str_remove(filename,".db"),"_anonymized.db"))
dbWriteTable(con,tablename,df.table)
dbDisconnect(con)

3. run in terminal using:

Rscript anonymize_participants_db.R filename tablename