Removing lubridate library call in favor of in-line

UMGCCFCSS · Dec 28, 2024 · 9be17f9 · 9be17f9
1 parent 2d469ba
commit 9be17f9
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/TheScript_3L.R b/TheScript_3L.R
@@ -23,7 +23,7 @@ git2r::pull(TheRepo)
 
 #library(dplyr)
 library(stringr)
-library(lubridate)
+#library(lubridate)
 library(Luciernaga)
 library(purrr)
 
@@ -49,7 +49,7 @@ MFIs <- list.files(StorageFolder, pattern="Bead", full.names=TRUE)
 MFIs <- read.csv(MFIs[1], check.names=FALSE)
 LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DateTime)
 #LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DATE)
-LastMFIItem <- ymd_hms(LastMFIItem)
+LastMFIItem <- lubridate::ymd_hms(LastMFIItem)
 #LastMFIItem <- mdy(LastMFIItem)
 LastMFIItem <- as.Date(LastMFIItem)
 PotentialMFIDays <- seq.Date(from = LastMFIItem, to = Today, by = "day")

diff --git a/TheScript_4L.R b/TheScript_4L.R
@@ -23,7 +23,7 @@ git2r::pull(TheRepo)
 
 #library(dplyr)
 library(stringr)
-library(lubridate)
+#library(lubridate)
 library(purrr)
 
 Instrument <- "4L"
@@ -48,7 +48,7 @@ MFIs <- list.files(StorageFolder, pattern="Bead", full.names=TRUE)
 MFIs <- read.csv(MFIs[1], check.names=FALSE)
 LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DateTime)
 #LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DATE)
-LastMFIItem <- ymd_hms(LastMFIItem)
+LastMFIItem <- lubridate::ymd_hms(LastMFIItem)
 #LastMFIItem <- mdy(LastMFIItem)
 LastMFIItem <- as.Date(LastMFIItem)
 PotentialMFIDays <- seq.Date(from = LastMFIItem, to = Today, by = "day")

diff --git a/TheScript_5L.R b/TheScript_5L.R
@@ -22,7 +22,7 @@ git2r::pull(TheRepo)
 
 #library(dplyr)
 library(stringr)
-library(lubridate)
+#library(lubridate)
 library(purrr)
 
 Instrument <- "5L"
@@ -48,7 +48,7 @@ MFIs <- list.files(StorageFolder, pattern="Bead", full.names=TRUE)
 MFIs <- read.csv(MFIs[1], check.names=FALSE)
 LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DateTime)
 #LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DATE)
-LastMFIItem <- ymd_hms(LastMFIItem)
+LastMFIItem <- lubridate::ymd_hms(LastMFIItem)
 #LastMFIItem <- mdy(LastMFIItem)
 LastMFIItem <- as.Date(LastMFIItem)
 PotentialMFIDays <- seq.Date(from = LastMFIItem, to = Today, by = "day")

diff --git a/TheScript_CS.R b/TheScript_CS.R
@@ -22,7 +22,7 @@ git2r::pull(TheRepo)
 
 #library(dplyr)
 library(stringr)
-library(lubridate)
+#library(lubridate)
 library(purrr)
 
 Instrument <- "CS"
@@ -35,7 +35,7 @@ StorageFolder <- file.path(WorkingFolder, "Archive")
 Gains <- list.files(StorageFolder, pattern="Archived", full.names=TRUE)
 Gains <- read.csv(Gains[1], check.names = FALSE)
 LastGainItem <- Gains %>% dplyr::slice(1) %>% dplyr::pull(DateTime)
-LastGainItem <- ymd_hms(LastGainItem)
+LastGainItem <- lubridate::ymd_hms(LastGainItem)
 LastGainItem <- as.Date(LastGainItem)
 PotentialGainDays <- seq.Date(from = LastGainItem, to = Today, by = "day")
 GainRemoveIndex <- which(PotentialGainDays == LastGainItem)
@@ -45,7 +45,7 @@ PotentialGainDays <- PotentialGainDays[-GainRemoveIndex]
 MFIs <- list.files(StorageFolder, pattern="Bead", full.names=TRUE)
 MFIs <- read.csv(MFIs[1], check.names=FALSE)
 LastMFIItem <- MFIs %>% dplyr::slice(1) %>% dplyr::pull(DateTime)
-LastMFIItem <- ymd_hms(LastMFIItem)
+LastMFIItem <- lubridate::ymd_hms(LastMFIItem)
 LastMFIItem <- as.Date(LastMFIItem)
 PotentialMFIDays <- seq.Date(from = LastMFIItem, to = Today, by = "day")
 MFIRemoveIndex <- which(PotentialMFIDays == LastMFIItem)