catalog <- data(catalog, package = "radiant.model", envir = environment()) %>% get()
register("catalog")

titanic <- data(titanic, package = "radiant.data", envir = environment()) %>% get()
register("titanic")

ideal <- data(ideal, package = "radiant.model", envir = environment()) %>% get()
register("ideal")

carpet <- data(carpet, package = "radiant.multivariate", envir = environment()) %>% get()
register("carpet")

city2 <- data(city2, package = "radiant.multivariate", envir = environment()) %>% get()
register("city2")

consider <- data(consider, package = "radiant.basics", envir = environment()) %>% get()
register("consider")

toothpaste <- data(toothpaste, package = "radiant.multivariate", envir = environment()) %>% get()
register("toothpaste")

ratings <- data(ratings, package = "radiant.model", envir = environment()) %>% get()
register("ratings")

computer <- data(computer, package = "radiant.multivariate", envir = environment()) %>% get()
register("computer")

shopping <- data(shopping, package = "radiant.multivariate", envir = environment()) %>% get()
register("shopping")

demand_uk <- data(demand_uk, package = "radiant.basics", envir = environment()) %>% get()
register("demand_uk")

city <- data(city, package = "radiant.multivariate", envir = environment()) %>% get()
register("city")

dvd <- data(dvd, package = "radiant.model", envir = environment()) %>% get()
register("dvd")

houseprices <- data(houseprices, package = "radiant.model", envir = environment()) %>% get()
register("houseprices")

direct_marketing <- data(direct_marketing, package = "radiant.model", envir = environment()) %>% get()
register("direct_marketing")

publishers <- data(publishers, package = "radiant.data", envir = environment()) %>% get()
register("publishers")

superheroes <- data(superheroes, package = "radiant.data", envir = environment()) %>% get()
register("superheroes")

ketchup <- data(ketchup, package = "radiant.model", envir = environment()) %>% get()
register("ketchup")

movie <- data(movie, package = "radiant.multivariate", envir = environment()) %>% get()
register("movie")