Fix not being able to filter by whether a session has positional data

jevansbio · jevansbio · commit 24d98a279a9e · 2025-11-27T14:40:46.000+01:00
diff --git a/R/get_sessions.R b/R/get_sessions.R
@@ -39,7 +39,7 @@ getSessionInfo <- function(
     sessions <- dplyr::left_join(sessions, pos_sessions, by = "session_id")
     sessions <- dplyr::mutate(sessions, pos_data = !is.na(pos_data))
     if (!is.null(has_pos_data)) {
-        sessions <- dplyr::filter(sessions, pos_data == pos_data)
+        sessions <- dplyr::filter(sessions, pos_data == has_pos_data)
     }
     if (!is.null(logger_deployed)) {
         sessions <- dplyr::filter(sessions, !is.na(deployment_id) == logger_deployed)

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ getSessionInfo <- function(`
`39`	`39`	`sessions <- dplyr::left_join(sessions, pos_sessions, by = "session_id")`
`40`	`40`	`sessions <- dplyr::mutate(sessions, pos_data = !is.na(pos_data))`
`41`	`41`	`if (!is.null(has_pos_data)) {`
`42`		`- sessions <- dplyr::filter(sessions, pos_data == pos_data)`
	`42`	`+ sessions <- dplyr::filter(sessions, pos_data == has_pos_data)`
`43`	`43`	`}`
`44`	`44`	`if (!is.null(logger_deployed)) {`
`45`	`45`	`sessions <- dplyr::filter(sessions, !is.na(deployment_id) == logger_deployed)`