Fix swimmerId.txt.

code.R

@@ -198,8 +198,12 @@ app$add_static("/libdir", "libdir")
 backend <- BackendRserve$new()
 swimmerData <- tryCatch(
 {
-  dframe <- read.table(file='swimmerId.txt',header=FALSE, sep='=',col.names=c('Key','Value'))
-  data.table(dframe,key='Key')
+  df <- read.table(file='swimmerId.txt',header=FALSE, sep='=',col.names=c('Key','Value'))
+  output <- list()
+  for (row in seq_len(nrow(df))) {
+    output[[df$Key[row]]] <- df$Value[row]
+  }
+  output
 },
   warning = function(cond) {
     print("WARNING:")