From fda76ed6703367c35564aa0b8ee6a9990d6c1c2c Mon Sep 17 00:00:00 2001 From: jan Date: Tue, 31 Jan 2023 17:14:22 +0100 Subject: [PATCH] add some brackets --- R/api.R | 5 +++-- tests/testthat/test_box.R | 1 - 2 files changed, 3 insertions(+), 3 deletions(-) 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) })