From 66dffcdc21e43b3233dc5232363c951e559ebab9 Mon Sep 17 00:00:00 2001 From: buhly Date: Fri, 27 Sep 2024 19:37:59 +0200 Subject: [PATCH] fix merge --- R/{gen_meta_data.R => gen_metadata.R} | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) rename R/{gen_meta_data.R => gen_metadata.R} (98%) diff --git a/R/gen_meta_data.R b/R/gen_metadata.R similarity index 98% rename from R/gen_meta_data.R rename to R/gen_metadata.R index 542d38a..6496fdf 100644 --- a/R/gen_meta_data.R +++ b/R/gen_metadata.R @@ -62,7 +62,7 @@ gen_metadata_statistic <- function(code = NULL, name = code, ...) - if (db == "gen_api" | db == "gen_regio_api") { + if (db == "gen_genesis_api" | db == "gen_regio_api") { par_list <- append(par_list, list(area = area)) @@ -187,7 +187,7 @@ gen_metadata_variable <- function(code = NULL, name = code, ...) - if (db == "gen_api" | db == "gen_regio_api") { + if (db == "gen_genesis_api" | db == "gen_regio_api") { par_list <- append(par_list, list(area = area)) @@ -320,7 +320,7 @@ gen_metadata_value <- function(code = NULL, name = code, ...) - if (db == "gen_api" | db == "gen_regio_api") { + if (db == "gen_genesis_api" | db == "gen_regio_api") { par_list <- append(par_list, list(area = area)) @@ -865,9 +865,9 @@ gen_metadata <- function(code = NULL, } else { stop("Category is not found, please select a correct category. - Available categories for data base GENESIS & Regionalstatistik: 'cube', 'statistic', 'table', 'variable', 'value'. - \n Available categories for Zensus data base: 'statistic', 'table', 'variable', 'value'. \n - Please choose one of them.", call. = TRUE) + Available categories for data base GENESIS & Regionalstatistik: 'cube', 'statistic', 'table', 'variable', 'value'. + \n Available categories for Zensus data base: 'statistic', 'table', 'variable', 'value'. \n + Please choose one of them.", call. = TRUE) } })