R/list_report_vars.R

In meerapatelmd/suzyBakeOven: Helpers for Package Authoring

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param file PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @seealso 
#'  \code{\link[stringr]{str_replace}}
#' @rdname list_all_variables
#' @export 
#' @importFrom stringr str_replace_all
list_all_variables <-
        function(file) {


                rmdLines <- readLines(con = file)
                rmdLines <-
                        grep(pattern = "[<]{3}.*?[>]{3}",
                             x = rmdLines,
                             value = TRUE) %>%
                        stringr::str_replace_all(
                                pattern = "^.*?[<]{3}(.*?)[>]{3}.*$",
                                replacement = "\\1"
                        )

                unique(rmdLines)

        }




#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param file PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @seealso 
#'  \code{\link[glue]{glue}}
#'  \code{\link[stringr]{str_replace}}
#' @rdname list_missing_variables
#' @export 
#' @importFrom glue glue
#' @importFrom stringr str_replace_all
list_missing_variables <-
        function(file) {


                rmdLines <- readLines(con = file)

                safely.glue <-
                        safely(glue::glue)

                output <- list()
                for (rmdLine in rmdLines) {
                        output[[length(output)+1]] <-
                        safely.glue(
                                rmdLine,
                                .open = "<<<",
                                .close = ">>>"
                        )
                }


                output %>%
                        transpose() %>%
                        pluck("error") %>%
                        keep(~!is.null(.)) %>%
                        transpose() %>%
                        pluck("message") %>%
                        unlist() %>%
                        stringr::str_replace_all(pattern = "(object [']{1})(.*?)([']{1}.*$)",
                                                   replacement = "\\2")


        }