Comment out trajectory loading and map display again

While waiting for asiripanich#46 to be resolved
shankari · Jun 24, 2021 · 1dd092e · 1dd092e
1 parent dbabb70
commit 1dd092e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 11 deletions.
diff --git a/R/app_ui.R b/R/app_ui.R
@@ -17,7 +17,7 @@ app_ui <- function(request) {
         sidebarMenu(
           menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
           menuItem("Tables", tabName = "tables", icon = icon("table")),
-          menuItem("Maps", tabName = "maps", icon = icon("globe")),
+          # menuItem("Maps", tabName = "maps", icon = icon("globe")),
           mod_load_data_ui("load_data_ui"),
           mod_load_trips_ui("load_trips_ui")
         )

diff --git a/R/mod_load_trips.R b/R/mod_load_trips.R
@@ -94,16 +94,16 @@ mod_load_trips_server <- function(input, output, session, cons) {
                    )
                    message("Finished loading trips")
 
-                   message("About to load locations")
-                   data_geogr$locations <- tidy_cleaned_locations(query_cleaned_locations_by_timestamp(cons,input$dates))
-                   message("Finished loading locations")
-
-                   message("About to create trajectories within trips")
-                   data_geogr$trips_with_trajectories <- generate_trajectories(data_geogr$trips,
-                     data_geogr$locations,
-                     project_crs = get_golem_config("project_crs")
-                   )
-                   message("Finished creating trajectories within trips")
+#                    message("About to load locations")
+#                    data_geogr$locations <- tidy_cleaned_locations(query_cleaned_locations_by_timestamp(cons,input$dates))
+#                    message("Finished loading locations")
+# 
+#                    message("About to create trajectories within trips")
+#                    data_geogr$trips_with_trajectories <- generate_trajectories(data_geogr$trips,
+#                      data_geogr$locations,
+#                      project_crs = get_golem_config("project_crs")
+#                    )
+#                    message("Finished creating trajectories within trips")
 
                    # output column names into R
                    # data_geogr$trips %>% colnames() %>% dput()