remove new usages of structure

Author: ben-schwen

inst/tests/tests.Rraw

@@ -21853,16 +21853,16 @@ test(2378.95, .Call(CresizeVector, NULL, 2L), error = "must be a vector")
 
 # #7252 as.IDate()/as.ITime preserve names and are compliant with as.Date()
 test(2379.01, as.IDate(c(a = "2019-01-01")), as.IDate(as.Date(c(a = "2019-01-01"))))
-test(2379.02, c(a = as.IDate("2019-01-01")), structure(as.IDate("2019-01-01"), names="a"))
-test(2379.03, as.ITime(c(a = "12:00:00")), structure(as.ITime("12:00:00"), names="a"))
-test(2379.04, as.IDate(structure(as.POSIXct("2019-01-01 12:00:00", tz="UTC"), names = "a")), as.IDate(as.Date(structure(as.POSIXct("2019-01-01 12:00:00", tz="UTC"), names = "a"))))
-test(2379.05, as.ITime(structure(3600, names = "a")), structure(as.ITime(3600), names="a"))
+test(2379.02, c(a = as.IDate("2019-01-01")), setNames(as.IDate("2019-01-01"), "a"))
+test(2379.03, as.ITime(c(a = "12:00:00")), setNames(as.ITime("12:00:00"), "a"))
+test(2379.04, as.IDate(c(a=as.POSIXct("2019-01-01 12:00:00", tz="UTC"))), as.IDate(as.Date(c(a=as.POSIXct("2019-01-01 12:00:00", tz="UTC")))))
+test(2379.05, as.ITime(c(a=3600)), setNames(as.ITime(3600), "a"))
 test(2379.06, as.IDate(c(a = 18000)), as.IDate(as.Date(c(a = 18000), origin="1970-01-01")))
 test(2379.07, as.IDate(c(a = 1), origin = "2020-01-01"), as.IDate(as.Date(c(a = 1), origin = "2020-01-01")))
-test(2379.08, as.ITime(c(a = "12-00-00"), format = "%H-%M-%S"), structure(as.ITime("12:00:00"), names="a"))
+test(2379.08, as.ITime(c(a = "12-00-00"), format = "%H-%M-%S"), setNames(as.ITime("12:00:00"), "a"))
 test(2379.09, as.IDate(as.POSIXct(c(a = "2019-01-01"), tz="America/New_York")), as.IDate(as.Date(as.POSIXct(c(a = "2019-01-01"), tz="America/New_York"))))
 test(2379.10, as.IDate(c(a = 1), origin = c(b = "2020-01-01")), as.IDate(as.Date(c(a = 1), origin = c(b = "2020-01-01"))))
-test(2379.11, as.IDate(c(a = 20.5), origin="2020-01-01"), structure(as.IDate("2020-01-21"), names="a"))
+test(2379.11, as.IDate(c(a = 20.5), origin="2020-01-01"), setNames(as.IDate("2020-01-21"), "a"))
 d = c(a="2020-01-02")
 a = c(a=1L)
 test(2379.12, as.IDate(d) + 1L, as.IDate(as.Date(d) + 1L))