mirror of
https://github.com/agdamsbo/daDoctoR.git
synced 2024-11-22 11:50:23 +01:00
24 lines
726 B
R
24 lines
726 B
R
|
#' Easily format csv-files for instrument opload to REDCap
|
||
|
|
#'
|
||
|
|
#' Both Numbers and Excel lacks detailed formatting options for csv-export.
|
||
|
|
#' This function formats csv-files for ReDCap instruments after export from said programs.
|
||
|
|
#' @param folder Path to desired folder.
|
||
|
|
#' @param name Desired file name.
|
||
|
|
#' @keywords redcap
|
||
|
|
#' @export
|
||
|
|
#' @examples
|
||
|
|
#' csv_redcap_cleaner("/Users/user/REDCap_conversion")
|
||
|
|
|
||
|
|
redcap_clean_csv<-function(folder,name="instrument"){
|
||
|
|
f<-folder
|
||
|
|
fn<-name
|
||
|
|
pt<-paste0(name,".csv")
|
||
|
|
|
||
|
|
p<-list.files(f, pattern=pt, full.names=TRUE)
|
||
|
|
d<-read.csv(p, header=FALSE, sep=";")
|
||
|
|
nc<-unlist(strsplit(p, "[.]"))
|
||
|
|
n<-paste0(f,"/done/",fn,".csv")
|
||
|
|
colnames(d)<-NULL
|
||
|
|
write.csv(d,n,na="",row.names = FALSE)
|
||
|
|
}
|