mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 09:59:39 +02:00
118 lines
3.2 KiB
R
118 lines
3.2 KiB
R
#' Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()'
|
|
#'
|
|
#' @description
|
|
#' This function follows the idea from this comment: https://stackoverflow.com/questions/38983179/do-call-a-function-in-r-without-loading-the-package
|
|
#' @param x function or function name
|
|
#'
|
|
#' @return function or character vector
|
|
#' @export
|
|
#'
|
|
#' @examples
|
|
#' getfun("stats::lm")
|
|
getfun <- function(x) {
|
|
if("character" %in% class(x)){
|
|
if (length(grep("::", x)) > 0) {
|
|
parts <- strsplit(x, "::")[[1]]
|
|
requireNamespace(parts[1])
|
|
getExportedValue(parts[1], parts[2])
|
|
}
|
|
}else {
|
|
x
|
|
}
|
|
}
|
|
|
|
#' Wrapper to save data in RDS, load into specified qmd and render
|
|
#'
|
|
#' @param data list to pass to qmd
|
|
#' @param fileformat output format. Ignored if file!=NULL
|
|
#' @param qmd.file qmd file to render. Default is 'here::here("report.qmd")'
|
|
#' @param ... Passed to `quarto::quarto_render()`
|
|
#'
|
|
#' @return output file name
|
|
#' @export
|
|
#'
|
|
write_quarto <- function(data,fileformat=c("html","docx","odt","pdf","all"),qmd.file=here::here("report.qmd"),...){
|
|
fileformat <- match.arg(fileformat)
|
|
# Exports data to temporary location
|
|
#
|
|
# I assume this is more secure than putting it in the www folder and deleting
|
|
# on session end
|
|
temp <- tempfile(fileext = ".rds")
|
|
readr::write_rds(data,file=temp)
|
|
|
|
## Specifying a output path will make the rendering fail
|
|
## Ref: https://github.com/quarto-dev/quarto-cli/discussions/4041
|
|
## Outputs to the same as the .qmd file
|
|
quarto::quarto_render(qmd.file,
|
|
output_format = fileformat,
|
|
execute_params = list(data.file=temp),
|
|
...
|
|
)
|
|
}
|
|
|
|
#' Flexible file import based on extension
|
|
#'
|
|
#' @param file file name
|
|
#' @param consider.na character vector of strings to consider as NAs
|
|
#'
|
|
#' @return tibble
|
|
#' @export
|
|
#'
|
|
#' @examples
|
|
#' read_input("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/data/sample.csv")
|
|
read_input <- function(file, consider.na = c("NA", '""', "")) {
|
|
ext <- tools::file_ext(file)
|
|
|
|
if (ext == "csv") {
|
|
df <- readr::read_csv(file = file, na = consider.na)
|
|
} else if (ext %in% c("xls", "xlsx")) {
|
|
df <- openxlsx2::read_xlsx(file = file, na.strings = consider.na)
|
|
} else if (ext == "dta") {
|
|
df <- haven::read_dta(file = file)
|
|
} else if (ext == "ods") {
|
|
df <- readODS::read_ods(path = file)
|
|
} else if (ext == "rds") {
|
|
df <- readr::read_rds(file = file)
|
|
} else {
|
|
stop("Input file format has to be on of:
|
|
'.csv', '.xls', '.xlsx', '.dta', '.ods' or '.rds'")
|
|
}
|
|
|
|
df
|
|
}
|
|
|
|
#' Convert string of arguments to list of arguments
|
|
#'
|
|
#' @description
|
|
#' Idea from the answer: https://stackoverflow.com/a/62979238
|
|
#'
|
|
#' @param string string to convert to list to use with do.call
|
|
#'
|
|
#' @return list
|
|
#' @export
|
|
#'
|
|
argsstring2list <- function(string){
|
|
eval(parse(text = paste0("list(", string, ")")))
|
|
}
|
|
|
|
|
|
#' Factorize variables in data.frame
|
|
#'
|
|
#' @param data data.frame
|
|
#' @param vars variables to force factorize
|
|
#'
|
|
#' @return data.frame
|
|
#' @export
|
|
factorize <- function(data,vars){
|
|
if (!is.null(vars)) {
|
|
data |>
|
|
dplyr::mutate(
|
|
dplyr::across(
|
|
dplyr::all_of(vars),
|
|
REDCapCAST::as_factor
|
|
)
|
|
)
|
|
} else {
|
|
data
|
|
}
|
|
}
|