rename .filterType to .selectType

LiNk-NY · LiNk-NY · commit 560b6844a275 · 2025-07-07T14:18:26.000-04:00
diff --git a/R/eventInfo.R b/R/eventInfo.R
@@ -12,10 +12,10 @@
     yaml::read_yaml(edata)
 }
 
-.filterType <- function(type) {
+.selectType <- function(type) {
     edata <- .readYmlConfig()
     if (!type %in% names(edata))
-        stop("<internal> 'type' not supported; contact organizers")
+        stop("<internal> 'format' section in yaml not found")
     edata[[type]]
 }
 
@@ -27,7 +27,7 @@
 }
 
 eventData <- function(eid, type) {
-    edata <- .filterType(type)
+    edata <- .selectType(type)
     edata <- .filterCheckEID(edata, eid)
     edata[["esticker"]] <- .cache_url_file(edata[["stickerdl"]])
     edata

Original file line number	Diff line number	Diff line change
`@@ -12,10 +12,10 @@`
`12`	`12`	`yaml::read_yaml(edata)`
`13`	`13`	`}`
`14`	`14`
`15`		`-.filterType <- function(type) {`
	`15`	`+.selectType <- function(type) {`
`16`	`16`	`edata <- .readYmlConfig()`
`17`	`17`	`if (!type %in% names(edata))`
`18`		`- stop("<internal> 'type' not supported; contact organizers")`
	`18`	`+ stop("<internal> 'format' section in yaml not found")`
`19`	`19`	`edata[[type]]`
`20`	`20`	`}`
`21`	`21`
`@@ -27,7 +27,7 @@`
`27`	`27`	`}`
`28`	`28`
`29`	`29`	`eventData <- function(eid, type) {`
`30`		`- edata <- .filterType(type)`
	`30`	`+ edata <- .selectType(type)`
`31`	`31`	`edata <- .filterCheckEID(edata, eid)`
`32`	`32`	`edata[["esticker"]] <- .cache_url_file(edata[["stickerdl"]])`
`33`	`33`	`edata`