removes unused function/code

Author: tomjemmett

R/ZZZ.R

@@ -16,12 +16,6 @@ sanitize_input_name <- function(.x) {
     stringr::str_remove_all("[^a-z0-9-]+")
 }
 
-# suppress vs code / languageserver "no visible binding" warnings
-if (FALSE) {
-  .data <- NULL
-  .env <- NULL
-}
-
 md_file_to_html <- function(...) {
   file <- app_sys(...)
 
@@ -72,20 +66,6 @@ is_local <- function() {
   Sys.getenv("SHINY_PORT") == "" || !getOption("golem.app.prod", TRUE)
 }
 
-encrypt_filename <- function(
-  filename,
-  key_b64 = Sys.getenv("NHP_ENCRYPT_KEY")
-) {
-  key <- openssl::base64_decode(key_b64)
-
-  f <- charToRaw(filename)
-
-  ct <- openssl::aes_cbc_encrypt(f, key, NULL)
-  hm <- as.raw(openssl::sha256(ct, key))
-
-  openssl::base64_encode(c(hm, ct))
-}
-
 download_params_schema <- function(
   data_path = "app_data",
   app_version = Sys.getenv("INPUTS_DATA_VERSION", "dev")