diff --git a/app.R b/app.R index f045a6e..5d631f3 100644 --- a/app.R +++ b/app.R @@ -885,6 +885,15 @@ server <- function(input, output, session) { } ) + # добавить мета информацию + list_of_df[["meta"]] <- dplyr::tribble( + ~`Параметр` , ~`Значение`, + "Пользователь" , ifelse(AUTH_ENABLED, res_auth$user, "anonymous"), + "Название базы" , names(enabled_schemas)[enabled_schemas == scheme()], + "id базы" , scheme(), + "Время выгрузки" , format(Sys.time(), "%d.%m.%Y %H:%M:%S"), + ) + # set date params options("openxlsx2.dateFormat" = "dd.mm.yyyy")