shiny_drive_ui {shinydrive}

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"
)

Arguments

id

character. An ID string

input

shiny input

output

shiny input

session

shiny input

save_dir

character/reactive. Main directory of the files.

dir_access

character/reactive vector for dir(s) access. Default to NULL (all directories)

admin_user

boolean/reactive (TRUE). Admin user or not.

force_desc

boolean/reactive (FALSE). Force to add an entry description ?

lan

character/reactive ("EN"). Language to be used in the module (FR, EN and CN availabled... contributions are welcome :)).

file_translate

data.frame/reactive File for translation.

datatable_options

list/reactive. DT::datatable options argument.

yml

characte/reactiver yaml configuration file name.

date_time_format

character DateTime format.

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)