Add / suppress / edit a file

Description

Add / suppress / edit a file

Usage

add_file_in_dir(
  file,
  dir,
  yml,
  name = tools::file_path_sans_ext(basename(file)),
  description = "",
  date_time_format = "%Y%m%d_%H%M%S"
)

edit_file_in_dir(
  id,
  dir,
  yml,
  name = NULL,
  description = NULL,
  file = NULL,
  date_time_format = "%Y%m%d_%H%M%S"
)

suppress_file_in_dir(id, dir, yml)

get_yaml_info(
  yml,
  recorded_name = TRUE,
  date_time_format = "%Y%m%d_%H%M%S",
  add_img = FALSE,
  img_size = 30,
  format_size = TRUE
)

Arguments

Value

These functions return a logical indicating if operation succeeded or not

Examples

## Not run: 

yml <- file.path(getwd(), "test_sfm/config.yml") # will be created

dir <- file.path(getwd(), "test_sfm")
dir.create(dir)

file <- system.file("translate/translate.csv", package = "shinydrive")

# add one first file with current name
add_file_in_dir(
  file = file,
  dir = dir,
  yml = yml,
  description = ""
)

yaml::yaml.load_file(yml)
list.files(dir)
get_yaml_info(yml)

# add same file twice, changing name
add_file_in_dir(
  file = file,
  dir = dir,
  yml = yml,
  name = "translate_2",
  description = "This is cool"
)

yaml::yaml.load_file(yml)
list.files(dir)
get_yaml_info(yml, recorded_name = F)

# modify first file
edit_file_in_dir(
  id = "2", 
  dir = dir, 
  yml = yml,
  name = "translate_2_mod",
  description = "So cool"
)

yaml::yaml.load_file(yml)
list.files(dir)

# suppress first file
suppress_file_in_dir(id = "1", dir = dir, yml = yml)

yaml::yaml.load_file(yml)
list.files(dir)


## End(Not run)

Combine YAML files recursively from subdirectories

Description

Combine YAML files recursively from subdirectories

Usage

combine_yaml_recursive(
  base_dir,
  current_dir = "",
  config_file = "files_desc.yaml",
  recorded_name = TRUE,
  date_time_format = "%Y%m%d_%H%M%S",
  add_img = FALSE,
  img_size = 30,
  format_size = TRUE
)

Arguments

Value

A data frame combining all YAML files with a 'subdir' column indicating relative path

Examples

## Not run: 
# Get all files from base_dir and subdirectories
all_files <- combine_yaml_recursive(
  base_dir = "~/my_files",
  current_dir = "",
  config_file = "files_desc.yaml"
)

# Get files from a specific subdirectory and its children
subdir_files <- combine_yaml_recursive(
  base_dir = "~/my_files",
  current_dir = "projects/2024",
  config_file = "files_desc.yaml"
)

## End(Not run)

Delete all YAML files

Description

Delete all YAML files

Usage

delete_config(
  base_dir,
  config_file = "files_desc.yaml",
  confirm = TRUE,
  dry_run = FALSE,
  verbose = TRUE
)

Arguments

Value

delete all yaml files

Examples

## Not run: 
\donttest{
delete_config("~/shinydrive/tests", config_file = "files_desc.yaml")
}

## End(Not run)

Delete config files older than a specific number of days

Description

Delete config files older than a specific number of days

Usage

delete_old_config(
  base_dir,
  days = 30,
  config_file = "files_desc.yaml",
  confirm = TRUE,
  dry_run = FALSE,
  verbose = TRUE
)

Arguments

Value

delete old config files from folder

Examples

delete_old_config("~/shinydrive/tests", days = 60, config_file = "files_desc.yaml")

Create YAML configuration files recursively

Description

Create YAML configuration files recursively

Usage

init_config(
  base_dir,
  config_file = "files_desc.yaml",
  file_patterns = NULL,
  verbose = TRUE
)

Arguments

Value

Invisible count of processed directories

File management shiny module.

Description

File management shiny module.

Usage

shiny_drive_ui(id)

shiny_drive_server(
  input,
  output,
  session,
  id,
  save_dir,
  dir_access = NULL,
  admin_user = TRUE,
  force_desc = FALSE,
  lan = "EN",
  file_translate = read.csv(system.file("translate/translate.csv", package =
    "shinydrive"), sep = ";", encoding = "UTF-8", check.names = FALSE),
  datatable_options = list(),
  yml = "files_desc.yaml",
  date_time_format = "%Y%m%d_%H%M%S",
  decreasing = TRUE,
  intervalMillis = 5000
)

Arguments

Value

Shiny module without return value.

Examples

## Not run: 

if(require(shiny)){
  ui <- fluidPage(
    shiny_drive_ui(id = "idm")
  )
  server <- function(input, output, session) {
    callModule(module = shiny_drive_server,
             id = "idm",
             session = session,
             admin_user = TRUE,
             save_dir =  getwd(),
             lan = "FR")
  }
  shinyApp(ui, server)
}


## End(Not run)