From 5fe5495580eb3852ea5092a34dc2334c0e45c9b7 Mon Sep 17 00:00:00 2001 From: zero323 Date: Thu, 4 May 2017 08:32:54 +0200 Subject: [PATCH] Check that stats::alias is not masked --- R/pkg/inst/tests/testthat/test_sparkSQL.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/pkg/inst/tests/testthat/test_sparkSQL.R b/R/pkg/inst/tests/testthat/test_sparkSQL.R index 92cc9c104cb86..af1e19198d734 100644 --- a/R/pkg/inst/tests/testthat/test_sparkSQL.R +++ b/R/pkg/inst/tests/testthat/test_sparkSQL.R @@ -1229,6 +1229,10 @@ test_that("select with column", { expect_equal(columns(select(df5, column("table.name"))), "name") expect_equal(columns(select(df5, "table.name")), "name") + # Test that stats::alias is not masked + expect_is(alias(aov(yield ~ block + N*P*K, npk)), "listof") + + expect_error(select(df, c("name", "age"), "name"), "To select multiple columns, use a character vector or list for col") })