Update get_df_from_binary.cpp

R data types doesn't support SHORT and FLOAT (it refers to INTEGER and NUMERIC). So, instead of directly declaring IntergetVector or NumericVector to store SHORT or FLOAT values, assign them to interim primitive types and then pass them to respective vectors. This is not my favorite style and may revise once I have enumerated a new datatype to handle this. This should fix #15.

src/get_df_from_binary.cpp

@@ -77,12 +77,15 @@ List get_df_from_binary(
     // Short fields (integer)
     } else if(type[i] == "S"){
       IntegerVector current_vec(n_rows);
-
+      short x;
+
       for (int j = 0; j < n_rows; j++){
         line_pos = j * row_length + start[i] - 1;
         bf.seekg(line_pos, ios::beg);
 
-        bf.read((char*)&current_vec[j], 2);
+        // bf.read((char*)&current_vec[j], 2);
+        bf.read((char*)&x, 2);
+        current_vec[j] = x;
         if(current_vec[j] == short_miss){
           current_vec[j] = NA_INTEGER;
         }
@@ -107,12 +110,15 @@ List get_df_from_binary(
     // Float fields (single)
     } else if(type[i] == "F"){
       NumericVector current_vec(n_rows);
-
+      float x;
+
       for (int j = 0; j < n_rows; j++){
         line_pos = j * row_length + start[i] - 1;
         bf.seekg(line_pos, ios::beg);
 
-        bf.read((char*)&current_vec[j], 4);
+        // bf.read((char*)&current_vec[j], 4);
+        bf.read((char*)&x, 4);
+        current_vec[j] = x;
         if(current_vec[j] == flt_miss){
           current_vec[j] = NA_REAL;
         }