R/files_on_container.R

In 4intelligence/blob-4dashes-lib-r: Biblioteca para o acesso ao Azure Blob Storage em aplicações R

#' @title Realiza a listagem de todos forecast pack contidos no blob Storage.
#'
#' @name files_on_container
#'
#' @author 4intelligence
#'
#' @details Realiza a listagem de todos forecast pack contidos no blob Storage do projeto.
#'
#'
#' @examples
#' \dontrun{
#' # Listando todos os arquivos do projeto contidos no blob
#' files_on_container()
#'}
#'
#' @return dataframe com o nome, tamanho e variável (y) dos arquivos
#'
#' @export
files_on_container <- function(){

    # Endpoint
    endp <- AzureStor::storage_endpoint(Sys.getenv('AZURE_URL'), key = Sys.getenv('ACCESS_KEY'))

    # Container
    container <- AzureStor::list_storage_containers(endp)

    project_name <- Sys.getenv('PROJECT_NAME')

    if(!project_name %in% names(container))
        stop('Project not found. Try specify an type (dev) or (prod).')

    container <- container[[project_name]]

    # Arquivos no container
    files_on_container <- AzureStor::list_storage_files(container)

    # Dataframe com os arquivos no container ----
    # Transformando o tamanho em MB
    file_size <- files_on_container %>%
        dplyr::select(size) %>%
        dplyr::pull() %>%
        {( . / 1024 ) / 1024} %>%
        round(2)

    files_on_container$size <- file_size

    files_on_container <- files_on_container %>%
        dplyr::rename("size_mb" = size) %>%
        dplyr::select(-isdir) %>%
        dplyr::mutate(y = str_replace_all(name, "forecast_[0-9]+_|.rds$", ""))
        # dplyr::mutate(y = stringr::str_remove(name, "pack_")) %>%
        # dplyr::mutate(is_pack = ! stringr::str_detect(y, '.rds')) %>%
        # dplyr::mutate(y = ifelse(is_pack, y, NA)) %>%
        # dplyr::select(-blobtype) %>%
        tibble::as_tibble()

    return(files_on_container)

}