adding return

master
jan 1 year ago
parent ddf911e6a7
commit 95f4f889da

@ -73,6 +73,7 @@ summary.sensebox = function(object, ...) {
#' Converts a foreign object to a sensebox data.frame. #' Converts a foreign object to a sensebox data.frame.
#' @param x A data.frame to attach the class to #' @param x A data.frame to attach the class to
#' @return data.frame of class \code{sensebox}
#' @export #' @export
osem_as_sensebox = function(x) { osem_as_sensebox = function(x) {
ret = as.data.frame(x) ret = as.data.frame(x)

@ -99,7 +99,7 @@ osem_measurements.bbox = function (x, phenomenon, exposure = NA,
from = NA, to = NA, columns = NA, from = NA, to = NA, columns = NA,
..., ...,
endpoint = osem_endpoint(), endpoint = osem_endpoint(),
progress = T, progress = TRUE,
cache = NA) { cache = NA) {
bbox = x bbox = x
environment() %>% environment() %>%
@ -137,7 +137,7 @@ osem_measurements.sensebox = function (x, phenomenon, exposure = NA,
from = NA, to = NA, columns = NA, from = NA, to = NA, columns = NA,
..., ...,
endpoint = osem_endpoint(), endpoint = osem_endpoint(),
progress = T, progress = TRUE,
cache = NA) { cache = NA) {
boxes = x boxes = x
environment() %>% environment() %>%

@ -16,6 +16,7 @@ print.osem_measurements = function (x, ...) {
#' Converts a foreign object to an osem_measurements data.frame. #' Converts a foreign object to an osem_measurements data.frame.
#' @param x A data.frame to attach the class to. #' @param x A data.frame to attach the class to.
#' Should have at least a `value` and `createdAt` column. #' Should have at least a `value` and `createdAt` column.
#' @return data.frame of class \code{osem_measurements}
#' @export #' @export
osem_as_measurements = function(x) { osem_as_measurements = function(x) {
ret = tibble::as_tibble(x) ret = tibble::as_tibble(x)

@ -10,6 +10,9 @@ osem_as_measurements(x)
\item{x}{A data.frame to attach the class to. \item{x}{A data.frame to attach the class to.
Should have at least a `value` and `createdAt` column.} Should have at least a `value` and `createdAt` column.}
} }
\value{
data.frame of class \code{osem_measurements}
}
\description{ \description{
Converts a foreign object to an osem_measurements data.frame. Converts a foreign object to an osem_measurements data.frame.
} }

@ -9,6 +9,9 @@ osem_as_sensebox(x)
\arguments{ \arguments{
\item{x}{A data.frame to attach the class to} \item{x}{A data.frame to attach the class to}
} }
\value{
data.frame of class \code{sensebox}
}
\description{ \description{
Converts a foreign object to a sensebox data.frame. Converts a foreign object to a sensebox data.frame.
} }

@ -20,7 +20,7 @@ osem_measurements(x, ...)
columns = NA, columns = NA,
..., ...,
endpoint = osem_endpoint(), endpoint = osem_endpoint(),
progress = T, progress = TRUE,
cache = NA cache = NA
) )
@ -33,7 +33,7 @@ osem_measurements(x, ...)
columns = NA, columns = NA,
..., ...,
endpoint = osem_endpoint(), endpoint = osem_endpoint(),
progress = T, progress = TRUE,
cache = NA cache = NA
) )
} }

Loading…
Cancel
Save