From 2b446583e9a406a25c5237927a841a238a937caa Mon Sep 17 00:00:00 2001 From: munoztd0 Date: Fri, 28 Jul 2023 15:18:59 +0200 Subject: [PATCH] fix associated tests and build data structure --- R/utils.R | 6 +++--- tests/testthat/test-chart_types.R | 15 ++++++++------- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/R/utils.R b/R/utils.R index 05cc1dc4..c436be75 100644 --- a/R/utils.R +++ b/R/utils.R @@ -131,9 +131,9 @@ globalVariables(c("x", "e", ".", "acc", "epoch", "loss", "size", "val_acc", "val .build_data2 <- function(data, ...) { row.names(data) <- NULL - data <- data |> - dplyr::select(...) - # data <- data[, c(...), drop = FALSE] + # data <- data |> + # dplyr::select(...) + data <- data[, c(...), drop = FALSE] data <- unname(data) apply(data, 1, function(x) { diff --git a/tests/testthat/test-chart_types.R b/tests/testthat/test-chart_types.R index ad98dfe7..65f4ff2f 100644 --- a/tests/testthat/test-chart_types.R +++ b/tests/testthat/test-chart_types.R @@ -228,13 +228,14 @@ test_that("e_candle plot has the good data structure and type", { expect_equal( plot$x$opts$series[[1]]$data, list( - list(value = c(200.72, 200.60, 197.82, 203.32)), - list(value = c(198.85, 200.22, 198.07, 200.67)), - list(value = c(199.05, 198.43, 197.90, 200.00)), - list(value = c(203.73, 199.05, 198.10, 203.95)), - list(value = c(204.08, 203.54, 202.00, 204.90)), - list(value = c(208.11, 203.40, 201.50, 208.44)), - list(value = c(211.88, 208.34, 207.60, 213.17))) + list(value = c(200.60, 200.72, 197.82, 203.32)), + list(value = c(200.22, 198.85, 198.07, 200.67)), + list(value = c(198.43, 199.05, 197.90, 200.00)), + list(value = c(199.05, 203.73, 198.10, 203.95)), + list(value = c(203.54, 204.08, 202.00, 204.90)), + list(value = c(203.40, 208.11, 201.50, 208.44)), + list(value = c(208.34, 211.88, 207.60, 213.17)) + ) ) expect_equal( plot$x$opts$series[[1]]$type,