## ----eval=FALSE---------------------------------------------------------------
# library(restatis)


## ----eval=FALSE---------------------------------------------------------------
# restatis::gen_alternative_terms(term = "*busfahrer*", database = "genesis")
# 


## ----eval=FALSE---------------------------------------------------------------
# gen_alternative_terms(term = "*bus*", database = "genesis")
# 


## ----eval=FALSE---------------------------------------------------------------
# search_results <- gen_find(term = "busfahrer",
#                            detailed = FALSE,
#                            ordering = TRUE,
#                            category = "all",
#                            database = "genesis")
# 
# search_results
# 


## ----eval=FALSE---------------------------------------------------------------
# gen_metadata(code = search_results$Cubes$Code[1],
#              category = search_results$Cubes$Object_Type[1],
#              database = "genesis")
# 


## ----eval=FALSE---------------------------------------------------------------
# gen_cube(search_results$Cubes$Code[1], database = "genesis")
# 


## ----eval=FALSE---------------------------------------------------------------
# gen_modified_data(code = "62361", date = "week_before", database = "genesis")
#