Update hysplit_trajectory.R

juliombarros · Jan 19, 2021 · a9e88d5 · a9e88d5
1 parent d3f09a6
commit a9e88d5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/hysplit_trajectory.R b/R/hysplit_trajectory.R
@@ -300,7 +300,7 @@ hysplit_trajectory <- function(lat = 49.263,
       copy.mode = TRUE
     )
 
-    #unlink(file.path(exec_dir, trajectory_files), force = TRUE)
+   # unlink(file.path(exec_dir, trajectory_files), force = TRUE)
 
     # Obtain a trajectory data frame
     traj_tbl <-
@@ -319,8 +319,8 @@ hysplit_trajectory <- function(lat = 49.263,
   }
 
   if (clean_up) {
-  #  unlink(file.path(exec_dir, traj_output_files()), force = TRUE)
-  #  unlink(recep_file_path_stack, recursive = TRUE, force = TRUE)
+   # unlink(file.path(exec_dir, traj_output_files()), force = TRUE)
+   # unlink(recep_file_path_stack, recursive = TRUE, force = TRUE)
   }
 
   ensemble_tbl <-