Fix for mixed up longitude and latitude. Typo fixed.

Photosynq · Mar 24, 2017 · 7af540e · 7af540e
1 parent c516392
commit 7af540e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: PhotosynQ
 Title: Connect to PhotosynQ
-Version: 0.0.6
+Version: 0.0.7
 Authors@R: person("Sebastian", "Kuhlgert", email = "sebastian.kuhlgert@gmail.com", role = c("aut", "cre"))
 Description: This package helps to connect R to the PhotosynQ platform. It allows you to login and logout,
     as well as receive project information and project data. More importantly it transforms the received 

diff --git a/R/createDataframe.R b/R/createDataframe.R
@@ -139,8 +139,8 @@ createDataframe <- function(project_info="", project_data =""){
             spreadsheet[[p]][["device_id"]] <- c(1)
             spreadsheet[[p]][["status"]] <- c(1)
             spreadsheet[[p]][["notes"]] <- c(1)
+            spreadsheet[[p]][["latitude"]] <- c(1)
             spreadsheet[[p]][["longitude"]] <- c(1)
-            spreadsheet[[p]][["latitute"]] <- c(1)
         }
 
         for(measurement in project_data){
@@ -179,25 +179,25 @@ createDataframe <- function(project_info="", project_data =""){
                         next
                     }                                                                
 
-                    if(param == "longitude"){
+                    if(param == "latitude"){
                         if(is.null(measurement$location) || is.na(measurement$location)){
-                            spreadsheet[[protocolID]][["longitude"]] <- c(spreadsheet[[protocolID]][["longitude"]], NA)
+                            spreadsheet[[protocolID]][["latitude"]] <- c(spreadsheet[[protocolID]][["latitude"]], NA)
                         }
                         else{
-                            spreadsheet[[protocolID]][["longitude"]] <- c(spreadsheet[[protocolID]][["longitude"]], as.numeric(measurement$location[[1]]))
+                            spreadsheet[[protocolID]][["latitude"]] <- c(spreadsheet[[protocolID]][["latitude"]], as.numeric(measurement$location[[1]]))
                         }
                         next
-                    }                                                                
+                    }
 
-                    if(param == "latitute"){
+                    if(param == "longitude"){
                         if(is.null(measurement$location) || is.na(measurement$location)){
-                            spreadsheet[[protocolID]][["latitute"]] <- c(spreadsheet[[protocolID]][["latitute"]], NA)
+                            spreadsheet[[protocolID]][["longitude"]] <- c(spreadsheet[[protocolID]][["longitude"]], NA)
                         }
                         else{
-                            spreadsheet[[protocolID]][["latitute"]] <- c(spreadsheet[[protocolID]][["latitute"]], as.numeric(measurement$location[[2]]))
+                            spreadsheet[[protocolID]][["longitude"]] <- c(spreadsheet[[protocolID]][["longitude"]], as.numeric(measurement$location[[2]]))
                         }
                         next
-                    }  
+                    }                                                                
 
                     if(param == "notes"){
                         spreadsheet[[protocolID]][["notes"]] <- c(spreadsheet[[protocolID]][["notes"]], toString(measurement$note))