Script for creating only one instrument file

one_instrument.R

@@ -0,0 +1,17 @@
+# One instrument REDCap
+
+icname<-colnames(read.csv("examlpe instrument.csv"))
+dd<-data.frame(matrix(ncol = length(icname),
+                      nrow=ncol(dta))) ## Data frame to collect all
+colnames(dd)<-icname
+
+## Variable names
+dd[1]<-colnames(dta)
+
+## Form Name
+dd[2]<-"ddsc"
+
+## Field Type
+dd[4]<-"text"
+
+dd[5]<-colnames(dta)