diff --git a/R/api.R b/R/api.R index 273c7f2..add5577 100644 --- a/R/api.R +++ b/R/api.R @@ -45,8 +45,9 @@ get_boxes_ = function (..., endpoint) { df = dplyr::bind_rows(boxesList) df$exposure = df$exposure %>% as.factor() df$model = df$model %>% as.factor() - if (!is.null(df$grouptag)) + if (!is.null(df$grouptag)){ df$grouptag = df$grouptag %>% as.factor() + } df } @@ -70,7 +71,7 @@ parse_measurement_csv = function (resText) { }) osem_as_measurements(result) -} +} get_measurements_ = function (..., endpoint) { osem_get_resource(endpoint, c('boxes', 'data'), ..., type = 'text') %>% diff --git a/tests/testthat/test_box.R b/tests/testthat/test_box.R index d6d7712..db1a68e 100644 --- a/tests/testthat/test_box.R +++ b/tests/testthat/test_box.R @@ -50,7 +50,6 @@ test_that('optional box attributes are correctly parsed', { expect_null(oldbox$description) expect_null(oldbox$grouptag) expect_null(oldbox$weblink) - expect_null(oldbox$updatedAt) expect_null(oldbox$height) expect_null(oldbox$lastMeasurement) })