| Title: | Supporting Functions Maintained by Zhen Lu |
|---|---|
| Description: | Miscellaneous functions commonly used by LuLab. This package aims to help more researchers on epidemiology to perform data management and visualization more efficiently. |
| Authors: | Zhen Lu [aut, cre] |
| Maintainer: | Zhen Lu <[email protected]> |
| License: | Artistic-2.0 |
| Version: | 0.0.4 |
| Built: | 2024-12-07 06:30:13 UTC |
| Source: | CRAN |
Check for missing values for character columns
check_cha(col, df, verbose = TRUE)check_cha(col, df, verbose = TRUE)
col |
a character variable name |
df |
a data.frame |
verbose |
logical, controlling the output |
This function is used to check the distribution of character variables in the data frame.
a distribution table of the character variable in the data frame
Zhen Lu
data("melanoma", package = "boot") melanoma2 <- melanoma check_cha('status', melanoma2) # or mapply(check_cha,'status', MoreArgs= list(melanoma2))data("melanoma", package = "boot") melanoma2 <- melanoma check_cha('status', melanoma2) # or mapply(check_cha,'status', MoreArgs= list(melanoma2))
Check if wget is installed
check_wget()check_wget()
This function is used to check if wget is installed on the system.
a logical value indicating whether wget is installed
Zhen Lu
check_wget()check_wget()
Make Table1
Table1(df, ycol, xcol, xlabels, result_dir, verbose = TRUE)Table1(df, ycol, xcol, xlabels, result_dir, verbose = TRUE)
df |
a data.frame |
ycol |
a grouping variable |
xcol |
variables to be compared |
xlabels |
levels of ycol |
result_dir |
directory to save the result |
verbose |
logical, controlling the output |
This function is used to make Table1 and return excel file.
excel file
Zhen Lu
data("melanoma", package = "boot") melanoma2 <- melanoma # Factor the basic variables that # we're interested in melanoma2$status <- factor(melanoma2$status, levels=c(2,1,3), labels=c("Alive", # Reference "Melanoma death", "Non-melanoma death")) test= Table1( df= melanoma2, xcol= setdiff(names(melanoma2), "status"), ycol= "status", result_dir= tempdir() )data("melanoma", package = "boot") melanoma2 <- melanoma # Factor the basic variables that # we're interested in melanoma2$status <- factor(melanoma2$status, levels=c(2,1,3), labels=c("Alive", # Reference "Melanoma death", "Non-melanoma death")) test= Table1( df= melanoma2, xcol= setdiff(names(melanoma2), "status"), ycol= "status", result_dir= tempdir() )
Test speed of CRAN mirror
test_mirror(region, verbose = TRUE)test_mirror(region, verbose = TRUE)
region |
a character string, the region of the CRAN mirror, e.g. 'China' |
verbose |
logical, controlling the output |
This function is used to test the speed of CRAN mirror.
a data.frame with the name, URL, and download time of the fastest CRAN mirror
Zhen Lu
test_mirror('China')test_mirror('China')
Use wget to download files
use_wget(use = TRUE)use_wget(use = TRUE)
use |
a logical value, controlling the download method |
This function is used to set the download method.
a logical value indicating whether wget is used
Zhen Lu
use_wget(use = TRUE) getOption("download.file.method") getOption("download.file.extra") test_url <- "https://eternallybored.org/misc/wget/1.21.4/64/wget.exe" test_destfile <- tempfile() download.file(test_url, destfile = test_destfile)use_wget(use = TRUE) getOption("download.file.method") getOption("download.file.extra") test_url <- "https://eternallybored.org/misc/wget/1.21.4/64/wget.exe" test_destfile <- tempfile() download.file(test_url, destfile = test_destfile)