From 11a4becc3b2b4edf02b241756098d75e1f8bfb16 Mon Sep 17 00:00:00 2001
From: Nick McKay <nickmckay@users.noreply.github.com>
Date: Tue, 10 Sep 2024 10:39:44 +0100
Subject: [PATCH] neotoma back to cran

---
 DESCRIPTION       |  2 --
 R/inCompilation.R | 50 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+), 2 deletions(-)
 create mode 100644 R/inCompilation.R

diff --git a/DESCRIPTION b/DESCRIPTION
index d7ffa8e..c96bcad 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -55,7 +55,5 @@ Suggests:
     rmarkdown,
     testthat,
     googlesheets4
-Remotes: 
-    neotomadb/neotoma2
 VignetteBuilder: knitr
 LazyData: true
diff --git a/R/inCompilation.R b/R/inCompilation.R
new file mode 100644
index 0000000..6b9ea92
--- /dev/null
+++ b/R/inCompilation.R
@@ -0,0 +1,50 @@
+# checkfun <- function(cn,cv,compName,compVers){
+#   if(is.list(cv)){
+#     anycvm <- purrr::map_lgl(cv,function(x){any(x == compVers)})
+#   }else{
+#     cvm <- t(as.matrix(cv))
+#     anycvm <- apply(cvm,1,function(x){any(x == compVers)})
+#   }
+#
+#   # old code here:
+#   # bothMatch <- (cn==compName & purrr::map_lgl(cv,function(x){any(x == compVers)}))
+#   bothMatch <- (cn==compName & anycvm)
+#
+#   #put NAs back in for compName
+#   incn <- which(is.na(cn))
+#   bothMatch[incn] <- NA
+#   out <- data.frame(bothMatch)
+#   out <- setNames(out, createTSid())
+#   return(out)
+# }
+#
+#
+# inThisCompilation <- function(TS,compName,compVers){
+#   TS <- as.lipdTs(TS)
+#   allNames <- sort(unique(unlist(sapply(TS,names))))#get all names in TS
+#   #get all the names of the compilations
+#   allComps <- allNames[grepl(pattern = "inCompilationBeta[0-9]+_compilationName",allNames)]
+#   allVers <- allNames[grepl(pattern = "inCompilationBeta[0-9]+_compilationVersion",allNames)]
+#
+#   if(length(allComps) == 0){
+#     return(matrix(NA,nrow = length(TS)))
+#
+#   }
+#   allCompNames <- vector(mode = "list",length=length(allComps))
+#   allCompVersions <- vector(mode = "list",length=length(allComps))
+#
+#   #get all the data
+#   for(i in 1:length(allComps)){
+#     allCompNames[[i]] <- pullTsVariable(TS,allComps[i])
+#     allCompVersions[[i]] <- pullTsVariable(TS,allVers[i])
+#   }
+#
+#   #check for each compilation
+#   compCheck <- purrr::map2_dfc(allCompNames,allCompVersions,checkfun,compName,compVers)
+#
+#   #check across rows
+#   unify <- as.matrix(apply(compCheck,1,any))
+#
+#   return(unify)
+#
+# }