small eds

REDCap/convert_redcap.R

@@ -1,3 +1,5 @@
+## This approach is based on a folder with several data files to upload to an empty data base
+
 ## Bulk conversion of stata files to CSV
 library(haven)
 library(dplyr)

apps/Index app/rsconnect/shinyapps.io/cognitiveindex/index_app.dcf

@@ -5,7 +5,7 @@ account: cognitiveindex
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 6803928
-bundleId: 6217041
+bundleId: 6217136
 url: https://cognitiveindex.shinyapps.io/index_app/
-when: 1660896651.6136
-lastSyncTime: 1660896651.61362
+when: 1660899020.73485
+lastSyncTime: 1660899020.73486

apps/Index app/server.R

@@ -50,24 +50,24 @@ server <- function(input, output, session) {
                                           raw_columns=c("imm","vis","ver","att","del")) 
     
     colnames(df)<-c("id",
-                    "immediate_is",
-                    "visuospatial_is",
-                    "verbal_is",
-                    "attention_is",
-                    "delayed_is",
-                    "total_is",
-                    "immediate_ci",
-                    "visuospatial_ci",
-                    "verbal_ci",
-                    "attention_ci",
-                    "delayed_ci",
-                    "total_ci",
-                    "immediate_per",
-                    "visuospatial_per",
-                    "verbal_per",
-                    "attention_per",
-                    "delayed_per",
-                    "total_per")
+                    "a_is",
+                    "b_is",
+                    "c_is",
+                    "d_is",
+                    "e_is",
+                    "i_is",
+                    "a_ci",
+                    "b_ci",
+                    "c_ci",
+                    "d_ci",
+                    "e_ci",
+                    "i_ci",
+                    "a_per",
+                    "b_per",
+                    "c_per",
+                    "d_per",
+                    "e_per",
+                    "i_per")
     return(df)
     })