diff --git a/R/manage_lib.R b/R/manage_lib.R index fc3c61df..b27f043d 100644 --- a/R/manage_lib.R +++ b/R/manage_lib.R @@ -155,7 +155,7 @@ #' Israel). #' #' @export -check_lib <- function(type = c("derivative", "nobaseline", "raw", "mediod", +check_lib <- function(type = c("derivative", "nobaseline", "raw", "medoid", "model"), path = "system", condition = "warning") { @@ -199,8 +199,8 @@ get_lib <- function(type = c("derivative", } if("medoid" %in% type){ - message("Fetching mediod library...") - download.file("https://osf.io/download/yzscg/", destfile = file.path(lp, "mediod.rds"), mode = "wb") + message("Fetching medoid library...") + download.file("https://osf.io/download/yzscg/", destfile = file.path(lp, "medoid.rds"), mode = "wb") } if("model" %in% type){ @@ -237,7 +237,7 @@ load_lib <- function(type, path = "system") { #' @rdname manage_lib #' #' @export -rm_lib <- function(type = c("derivative", "nobaseline", "raw", "mediod", +rm_lib <- function(type = c("derivative", "nobaseline", "raw", "medoid", "model"), path = "system") { lp <- ifelse(path == "system", diff --git a/man/manage_lib.Rd b/man/manage_lib.Rd index 85243db0..5b939c11 100644 --- a/man/manage_lib.Rd +++ b/man/manage_lib.Rd @@ -8,7 +8,7 @@ \title{Manage spectral libraries} \usage{ check_lib( - type = c("derivative", "nobaseline", "raw", "mediod", "model"), + type = c("derivative", "nobaseline", "raw", "medoid", "model"), path = "system", condition = "warning" ) @@ -22,7 +22,7 @@ get_lib( load_lib(type, path = "system") rm_lib( - type = c("derivative", "nobaseline", "raw", "mediod", "model"), + type = c("derivative", "nobaseline", "raw", "medoid", "model"), path = "system" ) }