Package 'jsTreeR' reference manual

Title:	A Wrapper of the JavaScript Library 'jsTree'
Description:	Creates interactive trees that can be included in 'Shiny' apps and R markdown documents. A tree allows to represent hierarchical data (e.g. the contents of a directory). Similar to the 'shinyTree' package but offers more features and options, such as the grid extension, restricting the drag-and-drop behavior, and settings for the search functionality. It is possible to attach some data to the nodes of a tree and then to get these data in 'Shiny' when a node is selected. Also provides a 'Shiny' gadget allowing to manipulate one or more folders, and a 'Shiny' module allowing to navigate in the server side file system.
Authors:	Stéphane Laurent [aut, cre], jQuery contributors [ctb, cph] (jQuery), Ivan Bozhanov [ctb, cph] (jsTree), Vedran Opacic [ctb, cph] (jsTree bootstrap theme), Avi Deitcher [ctb, cph] (jsTreeGrid), Philip Hutchison [ctb, cph] (PDFObject), Terence Eden [ctb, cph] (SuperTinyIcons)
Maintainer:	Stéphane Laurent <[email protected]>
License:	GPL-3
Version:	2.6.0
Built:	2024-11-20 04:05:10 UTC
Source:	https://github.com/stla/jstreer

Folder gadget

Description

Shiny gadget allowing to manipulate one or more folders.

Usage

folderGadget(
  dirs = ".",
  tabs = FALSE,
  recursive = TRUE,
  all.files = FALSE,
  trash = FALSE
)
folderGadget(
  dirs = ".",
  tabs = FALSE,
  recursive = TRUE,
  all.files = FALSE,
  trash = FALSE
)

Arguments

`dirs`	character vector of paths to some folders
`tabs`	logical, whether to display the trees in tabs; this option is effective only when there are two folders in the `dirs` argument
`recursive`, `all.files`	options passed to `list.files`; even if `all.files = TRUE`, `'.git'` and `'.Rproj.user'` folders are always discarded
`trash`	logical, whether to add a trash to the gadget, allowing to restore the files or folders you delete

Value

No return value, just launches a Shiny gadget.

Note

You can run the gadget for the current directory from the Addins menu within RStudio ('Explore current folder').

Examples

library(jsTreeR)

# copy a folder to a temporary location for the illustration:
tmpDir <- tempdir()
folder <- file.path(tmpDir, "htmlwidgets")
htmlwidgets <- system.file("htmlwidgets", package = "jsTreeR")
R.utils::copyDirectory(htmlwidgets, folder)
# we use a copy because the actions performed in the gadget are
# actually executed on the files system!

# explore and manipulate the folder (drag-and-drop, right-click):
if(interactive()){
  folderGadget(folder)
}

# the 'trash' option allows to restore the elements you delete:
if(interactive()){
  folderGadget(folder, trash = TRUE)
}

# you can open several folders:
folder1 <- file.path(folder, "lib")
folder2 <- file.path(folder, "gadget")
if(interactive()){
  folderGadget(c(folder1, folder2))
}
library(jsTreeR)

# copy a folder to a temporary location for the illustration:
tmpDir <- tempdir()
folder <- file.path(tmpDir, "htmlwidgets")
htmlwidgets <- system.file("htmlwidgets", package = "jsTreeR")
R.utils::copyDirectory(htmlwidgets, folder)
# we use a copy because the actions performed in the gadget are
# actually executed on the files system!

# explore and manipulate the folder (drag-and-drop, right-click):
if(interactive()){
  folderGadget(folder)
}

# the 'trash' option allows to restore the elements you delete:
if(interactive()){
  folderGadget(folder, trash = TRUE)
}

# you can open several folders:
folder1 <- file.path(folder, "lib")
folder2 <- file.path(folder, "gadget")
if(interactive()){
  folderGadget(c(folder1, folder2))
}

HTML widget displaying an interactive tree

Description

Create a HTML widget displaying an interactive tree.

Usage

jstree(
  nodes,
  elementId = NULL,
  selectLeavesOnly = FALSE,
  checkboxes = FALSE,
  checkWithText = TRUE,
  search = FALSE,
  searchtime = 250,
  dragAndDrop = FALSE,
  dnd = NULL,
  multiple = TRUE,
  types = NULL,
  sort = FALSE,
  unique = FALSE,
  wholerow = FALSE,
  contextMenu = FALSE,
  checkCallback = NULL,
  grid = NULL,
  theme = "default",
  coreOptions = NULL
)
jstree(
  nodes,
  elementId = NULL,
  selectLeavesOnly = FALSE,
  checkboxes = FALSE,
  checkWithText = TRUE,
  search = FALSE,
  searchtime = 250,
  dragAndDrop = FALSE,
  dnd = NULL,
  multiple = TRUE,
  types = NULL,
  sort = FALSE,
  unique = FALSE,
  wholerow = FALSE,
  contextMenu = FALSE,
  checkCallback = NULL,
  grid = NULL,
  theme = "default",
  coreOptions = NULL
)

Arguments

`nodes`	data, a list of nodes; each node is a list with a required field `text`, a character string labeling the node, and optional fields `children` a list of nodes `data` a named list of data to attach to the node; see the Shiny examples `icon` space-separated HTML class names defining an icon, e.g. `"glyphicon glyphicon-flash"` or `"fa fa-folder"`; one can also get an icon from an image file in a Shiny app, see the imageIcon Shiny example; you can also use a super tiny icon, e.g. `"supertinyicon-julia"`; see the SuperTinyIcons Shiny example showing all available such icons `type` a character string for usage with the `types` option; see first example `state` a named list defining the state of the node, with four possible fields, each being `TRUE` or `FALSE`: `opened` whether the node should be initially opened `selected` whether the node should be initially selected `disabled` whether the node should be disabled `checked` whether the node should be initially checked, effective only when the `checkboxes` option is `TRUE` `a_attr` a named list of attributes for the node label, such as `list(title = "I'm a tooltip", style = "color: red;")` `li_attr` a named list of attributes for the whole node, including its children, such as `list(title = "I'm a tooltip", style = "background-color: pink;")` There are some alternatives for the `nodes` argument; see Populating the tree using AJAX, Populating the tree using AJAX and lazy loading nodes and Populating the tree using a callback function.
`elementId`	a HTML id for the widget (useless for common usage)
`selectLeavesOnly`	logical, for usage in Shiny, whether to get only selected leaves
`checkboxes`	logical, whether to enable checkboxes next to each node; this makes easier the selection of multiple nodes
`checkWithText`	logical, whether the checkboxes must be selected when clicking on the text of a node
`search`	either a logical value, whether to enable the search functionality with default options, or a named list of options for the search functionality; see the SuperTinyIcons Shiny example and the jsTree API documentation for the list of possible options
`searchtime`	currently ignored
`dragAndDrop`	logical, whether to allow the rearrangement of the nodes by dragging and dropping
`dnd`	a named list of options related to the drag-and-drop functionality, e.g. the `is_draggable` function to define which nodes are draggable; see the first example and the jsTree API documentation for the list of possible options
`multiple`	logical, whether to allow multiselection
`types`	a named list of node properties; see first example
`sort`	logical, whether to sort the nodes
`unique`	logical, whether to ensure that no node label is duplicated
`wholerow`	logical, whether to highlight whole selected rows
`contextMenu`	either a logical value, whether to enable a context menu to create/rename/delete/cut/copy/paste nodes, or a list of options; see the jsTree API documentation for the possible options
`checkCallback`	either `TRUE` to allow to perform some actions such as creating a new node, or a JavaScript function; see the example where this option is used to define restrictions on the drag-and-drop behavior
`grid`	list of settings for the grid; see the second example, the grid Shiny example, and the web page github.com/deitch/jstree-grid for the list of all available options
`theme`	jsTree theme, one of `"default"`, `"default-dark"`, or `"proton"`
`coreOptions`	a named list of core options, for advanced usage

Value

A htmlwidget object.

Examples

# example illustrating the 'dnd' and 'checkCallback' options ####

library(jsTreeR)

nodes <- list(
  list(
    text = "RootA",
    type = "root",
    children = list(
      list(
        text = "ChildA1",
        type = "child"
      ),
      list(
        text = "ChildA2",
        type = "child"
      )
    )
  ),
  list(
    text = "RootB",
    type = "root",
    children = list(
      list(
        text = "ChildB1",
        type = "child"
      ),
      list(
        text = "ChildB2",
        type = "child"
      )
    )
  )
)

types <- list(
  root = list(
    icon = "glyphicon glyphicon-ok"
  ),
  child = list(
    icon = "glyphicon glyphicon-file"
  )
)

checkCallback <- JS(
  "function(operation, node, parent, position, more) {",
  "  if(operation === 'move_node') {",
  "    if(parent.id === '#' || parent.type === 'child') {",
  "      return false;", # prevent moving a child above or below the root
  "    }",               # and moving inside a child
  "  }",
  "  return true;", # allow everything else
  "}"
)

dnd <- list(
  is_draggable = JS(
    "function(node) {",
    "  return node[0].type === 'child';",
    "}"
  )
)

jstree(
  nodes,
  dragAndDrop = TRUE, dnd = dnd,
  types = types,
  checkCallback = checkCallback
)


# example illustrating the 'grid' option ####

library(jsTreeR)

nodes <- list(
  list(
    text = "Products",
    children = list(
      list(
        text = "Fruit",
        children = list(
          list(
            text = "Apple",
            data = list(
              price = 0.1,
              quantity = 20
            )
          ),
          list(
            text = "Banana",
            data = list(
              price = 0.2,
              quantity = 31
            )
          ),
          list(
            text = "Grapes",
            data = list(
              price = 1.99,
              quantity = 34
            )
          ),
          list(
            text = "Mango",
            data = list(
              price = 0.5,
              quantity = 8
            )
          ),
          list(
            text = "Melon",
            data = list(
              price = 0.8,
              quantity = 4
            )
          ),
          list(
            text = "Pear",
            data = list(
              price = 0.1,
              quantity = 30
            )
          ),
          list(
            text = "Strawberry",
            data = list(
              price = 0.15,
              quantity = 32
            )
          )
        ),
        state = list(
          opened = TRUE
        )
      ),
      list(
        text = "Vegetables",
        children = list(
          list(
            text = "Aubergine",
            data = list(
              price = 0.5,
              quantity = 8
            )
          ),
          list(
            text = "Broccoli",
            data = list(
              price = 0.4,
              quantity = 22
            )
          ),
          list(
            text = "Carrot",
            data = list(
              price = 0.1,
              quantity = 32
            )
          ),
          list(
            text = "Cauliflower",
            data = list(
              price = 0.45,
              quantity = 18
            )
          ),
          list(
            text = "Potato",
            data = list(
              price = 0.2,
              quantity = 38
            )
          )
        )
      )
    ),
    state = list(
      opened = TRUE
    )
  )
)

grid <- list(
  columns = list(
    list(
      width = 200,
      header = "Name"
    ),
    list(
      width = 150,
      value = "price",
      header = "Price"
    ),
    list(
      width = 150,
      value = "quantity",
      header = "Qty"
    )
  ),
  width = 600
)

jstree(nodes, grid = grid)


# example illustrating custom context menu ####

library(jsTreeR)

customMenu <- JS("function customMenu(node)
{
  var tree = $('#mytree').jstree(true);
  var items = {
    'rename' : {
      'label' : 'Rename',
      'action' : function (obj) { tree.edit(node); },
      'icon': 'glyphicon glyphicon-edit'
    },
    'delete' : {
      'label' : 'Delete',
      'action' : function (obj) { tree.delete_node(node); },
      'icon' : 'glyphicon glyphicon-trash'
    },
    'create' : {
      'label' : 'Create',
      'action' : function (obj) { tree.create_node(node); },
      'icon': 'glyphicon glyphicon-plus'
    }
  }
  return items;
}")

nodes <- list(
  list(
    text = "RootA",
    children = list(
      list(
        text = "ChildA1"
      ),
      list(
        text = "ChildA2"
      )
    )
  ),
  list(
    text = "RootB",
    children = list(
      list(
        text = "ChildB1"
      ),
      list(
        text = "ChildB2"
      )
    )
  )
)

jstree(
  nodes, checkCallback = TRUE, elementId = "mytree",
  contextMenu = list(items = customMenu)
)
# example illustrating the 'dnd' and 'checkCallback' options ####

library(jsTreeR)

nodes <- list(
  list(
    text = "RootA",
    type = "root",
    children = list(
      list(
        text = "ChildA1",
        type = "child"
      ),
      list(
        text = "ChildA2",
        type = "child"
      )
    )
  ),
  list(
    text = "RootB",
    type = "root",
    children = list(
      list(
        text = "ChildB1",
        type = "child"
      ),
      list(
        text = "ChildB2",
        type = "child"
      )
    )
  )
)

types <- list(
  root = list(
    icon = "glyphicon glyphicon-ok"
  ),
  child = list(
    icon = "glyphicon glyphicon-file"
  )
)

checkCallback <- JS(
  "function(operation, node, parent, position, more) {",
  "  if(operation === 'move_node') {",
  "    if(parent.id === '#' || parent.type === 'child') {",
  "      return false;", # prevent moving a child above or below the root
  "    }",               # and moving inside a child
  "  }",
  "  return true;", # allow everything else
  "}"
)

dnd <- list(
  is_draggable = JS(
    "function(node) {",
    "  return node[0].type === 'child';",
    "}"
  )
)

jstree(
  nodes,
  dragAndDrop = TRUE, dnd = dnd,
  types = types,
  checkCallback = checkCallback
)


# example illustrating the 'grid' option ####

library(jsTreeR)

nodes <- list(
  list(
    text = "Products",
    children = list(
      list(
        text = "Fruit",
        children = list(
          list(
            text = "Apple",
            data = list(
              price = 0.1,
              quantity = 20
            )
          ),
          list(
            text = "Banana",
            data = list(
              price = 0.2,
              quantity = 31
            )
          ),
          list(
            text = "Grapes",
            data = list(
              price = 1.99,
              quantity = 34
            )
          ),
          list(
            text = "Mango",
            data = list(
              price = 0.5,
              quantity = 8
            )
          ),
          list(
            text = "Melon",
            data = list(
              price = 0.8,
              quantity = 4
            )
          ),
          list(
            text = "Pear",
            data = list(
              price = 0.1,
              quantity = 30
            )
          ),
          list(
            text = "Strawberry",
            data = list(
              price = 0.15,
              quantity = 32
            )
          )
        ),
        state = list(
          opened = TRUE
        )
      ),
      list(
        text = "Vegetables",
        children = list(
          list(
            text = "Aubergine",
            data = list(
              price = 0.5,
              quantity = 8
            )
          ),
          list(
            text = "Broccoli",
            data = list(
              price = 0.4,
              quantity = 22
            )
          ),
          list(
            text = "Carrot",
            data = list(
              price = 0.1,
              quantity = 32
            )
          ),
          list(
            text = "Cauliflower",
            data = list(
              price = 0.45,
              quantity = 18
            )
          ),
          list(
            text = "Potato",
            data = list(
              price = 0.2,
              quantity = 38
            )
          )
        )
      )
    ),
    state = list(
      opened = TRUE
    )
  )
)

grid <- list(
  columns = list(
    list(
      width = 200,
      header = "Name"
    ),
    list(
      width = 150,
      value = "price",
      header = "Price"
    ),
    list(
      width = 150,
      value = "quantity",
      header = "Qty"
    )
  ),
  width = 600
)

jstree(nodes, grid = grid)


# example illustrating custom context menu ####

library(jsTreeR)

customMenu <- JS("function customMenu(node)
{
  var tree = $('#mytree').jstree(true);
  var items = {
    'rename' : {
      'label' : 'Rename',
      'action' : function (obj) { tree.edit(node); },
      'icon': 'glyphicon glyphicon-edit'
    },
    'delete' : {
      'label' : 'Delete',
      'action' : function (obj) { tree.delete_node(node); },
      'icon' : 'glyphicon glyphicon-trash'
    },
    'create' : {
      'label' : 'Create',
      'action' : function (obj) { tree.create_node(node); },
      'icon': 'glyphicon glyphicon-plus'
    }
  }
  return items;
}")

nodes <- list(
  list(
    text = "RootA",
    children = list(
      list(
        text = "ChildA1"
      ),
      list(
        text = "ChildA2"
      )
    )
  ),
  list(
    text = "RootB",
    children = list(
      list(
        text = "ChildB1"
      ),
      list(
        text = "ChildB2"
      )
    )
  )
)

jstree(
  nodes, checkCallback = TRUE, elementId = "mytree",
  contextMenu = list(items = customMenu)
)

Shiny bindings for jstree

Description

Output and render functions for using jstree within Shiny applications and interactive Rmd documents. See examples with jstreeExample.

Usage

jstreeOutput(outputId, width = "100%", height = "auto")

renderJstree(expr, env = parent.frame(), quoted = FALSE)
jstreeOutput(outputId, width = "100%", height = "auto")

renderJstree(expr, env = parent.frame(), quoted = FALSE)

Arguments

`outputId`	output variable to read from
`width`, `height`	must be a valid CSS unit (like `'100%'`, `'400px'`, `'auto'`) or a number, which will be coerced to a string and have `'px'` appended
`expr`	an expression that generates a `jstree`
`env`	the environment in which to evaluate `expr`
`quoted`	logical, whether `expr` is a quoted expression (with `quote()`); this is useful if you want to save an expression in a variable

Value

jstreeOutput returns an output element that can be included in a Shiny UI definition, and renderJstree returns a shiny.render.function object that can be included in a Shiny server definition.

Shiny values

If the outputId is called "ID" for example, you have four or seven available Shiny input values in the server: input[["ID"]] contains the tree with the node fields text and data only, input[["ID_full"]] contains the full tree, input[["ID_selected"]] contains the selected nodes, input[["ID_selected_paths"]] is like input[["ID_selected"]] except that it provides the paths to the selected nodes instead of only the values of their text field. This makes four Shiny values always present. There are three additional Shiny values if you have set checkboxes=TRUE in the jstree command: input[["ID_checked"]] contains the checked nodes, input[["ID_checked_paths"]] provides the paths to the checked nodes. If you have set checkboxes=TRUE and checkWithText=TRUE (the default), then these two additional Shiny values are useless because 'checked' is the same as 'selected' in this situation. Try jstreeExample("checkWithText"). Finally, the seventh Shiny value that is provided when checkboxes=TRUE is input[["ID_checked_tree"]]. It is like input[["ID_checked"]] except that it returns the hierarchy, in other words it provides the checked nodes with their parent(s).

Destroy jstree

Description

Destroy a 'jstree' instance in a Shiny app.

Usage

jstreeDestroy(session, id)
jstreeDestroy(session, id)

Arguments

`session`	the Shiny `session` object
`id`	the id of the tree to be destroyed

Value

No value, just called to destroy a tree.

Run a Shiny jsTreeR example

Description

A function to run examples of Shiny apps using the jsTreeR package. Type jstreeExamples() to get the list of all examples.

Usage

jstreeExample(example, display.mode = "showcase", ...)
jstreeExample(example, display.mode = "showcase", ...)

Arguments

`example`	example name
`display.mode`	the display mode to use when running the example; see `runApp`
`...`	arguments passed to `runApp`

Value

No return value, just launches a Shiny app.

Examples

if(interactive()){
  jstreeExample("folder")
}
if(interactive()){
  jstreeExample("fontawesome")
}
if(interactive()){
  jstreeExample("SuperTinyIcons")
}
if(interactive()){
  jstreeExample("filtering")
}
if(interactive()){
  jstreeExample("grid")
}
if(interactive()){
  jstreeExample("gridFiltering")
}
if(interactive()){
  jstreeExample("treeNavigator")
}
if(interactive()){
  jstreeExample("imageIcon")
}
if(interactive()){
  jstreeExample("folder")
}
if(interactive()){
  jstreeExample("fontawesome")
}
if(interactive()){
  jstreeExample("SuperTinyIcons")
}
if(interactive()){
  jstreeExample("filtering")
}
if(interactive()){
  jstreeExample("grid")
}
if(interactive()){
  jstreeExample("gridFiltering")
}
if(interactive()){
  jstreeExample("treeNavigator")
}
if(interactive()){
  jstreeExample("imageIcon")
}

jsTreeR examples

Description

List of Shiny examples.

Usage

jstreeExamples()
jstreeExamples()

Value

No returned value, just prints a message listing the example names.

Examples

jstreeExamples()
if(interactive()){
  jstreeExample("grid")
}
jstreeExamples()
if(interactive()){
  jstreeExample("grid")
}

Objects imported from other packages

Description

These objects are imported from other packages. Follow the links to their documentation: JS, saveWidget.

Update jstree

Description

Update a 'jstree' instance in a Shiny app.

Usage

jstreeUpdate(session, id, nodes)
jstreeUpdate(session, id, nodes)

Arguments

`session`	the Shiny `session` object
`id`	the id of the tree to be updated
`nodes`	the new `nodes` list

Value

No value, just called to update a tree.

Tree navigator (Shiny module)

Description

A Shiny module allowing to render a files and folders navigator in the server side file system.

Usage

treeNavigatorUI(id, width = "100%", height = "auto")

treeNavigatorServer(
  id,
  rootFolder,
  search = TRUE,
  wholerow = FALSE,
  contextMenu = FALSE,
  theme = "proton",
  pattern = NULL,
  all.files = TRUE,
  ...
)
treeNavigatorUI(id, width = "100%", height = "auto")

treeNavigatorServer(
  id,
  rootFolder,
  search = TRUE,
  wholerow = FALSE,
  contextMenu = FALSE,
  theme = "proton",
  pattern = NULL,
  all.files = TRUE,
  ...
)

Arguments

`id`	an ID string; the one passed to `treeNavigatorUI` and the one passed to `treeNavigatorServer` must be identical, must not contain the `"-"` character, and must be a valid HTML id attribute
`width`, `height`	arguments passed to `jstreeOutput`
`rootFolder`	path to the root folder in which you want to navigate
`search`, `wholerow`, `contextMenu`	arguments passed to `jstree`
`theme`	the jsTree theme, `"default"` or `"proton"`
`pattern`, `all.files`	arguments passed to `list.files`
`...`	values passed to `req`

Value

The treeNavigatorUI function returns a shiny.tag.list object to be included in a Shiny UI definition, and the function treeNavigatorServer, to be included in a Shiny server definition, returns a reactive value containing the selected file paths of the tree navigator.

Examples

library(shiny)
library(jsTreeR)

css <- HTML("
  .flexcol {
    display: flex;
    flex-direction: column;
    width: 100%;
    margin: 0;
  }
  .stretch {
    flex-grow: 1;
    height: 1px;
  }
  .bottomright {
    position: fixed;
    bottom: 0;
    right: 15px;
    min-width: calc(50% - 15px);
  }
")

ui <- fixedPage(
  tags$head(
    tags$style(css)
  ),
  class = "flexcol",

  br(),

  fixedRow(
    column(
      width = 6,
      treeNavigatorUI("explorer")
    ),
    column(
      width = 6,
      tags$div(class = "stretch"),
      tags$fieldset(
        class = "bottomright",
        tags$legend(
          tags$h1("Selections:", style = "float: left;"),
          downloadButton(
            "dwnld",
            class = "btn-primary btn-lg",
            style = "float: right;",
            icon  = icon("save")
          )
        ),
        verbatimTextOutput("selections")
      )
    )
  )
)
server <- function(input, output, session){

  Paths <- treeNavigatorServer(
    "explorer", rootFolder = getwd(),
    search = list( # (search in the visited folders only)
      show_only_matches  = TRUE,
      case_sensitive     = TRUE,
      search_leaves_only = TRUE
    )
  )

  output[["selections"]] <- renderPrint({
    cat(Paths(), sep = "\n")
  })

  output[["dwnld"]] <- downloadHandler(
    filename = "myArchive.zip",
    content = function(file){
      zip(file, files = Paths())
    }
  )

}

if(interactive()) shinyApp(ui, server)
library(shiny)
library(jsTreeR)

css <- HTML("
  .flexcol {
    display: flex;
    flex-direction: column;
    width: 100%;
    margin: 0;
  }
  .stretch {
    flex-grow: 1;
    height: 1px;
  }
  .bottomright {
    position: fixed;
    bottom: 0;
    right: 15px;
    min-width: calc(50% - 15px);
  }
")

ui <- fixedPage(
  tags$head(
    tags$style(css)
  ),
  class = "flexcol",

  br(),

  fixedRow(
    column(
      width = 6,
      treeNavigatorUI("explorer")
    ),
    column(
      width = 6,
      tags$div(class = "stretch"),
      tags$fieldset(
        class = "bottomright",
        tags$legend(
          tags$h1("Selections:", style = "float: left;"),
          downloadButton(
            "dwnld",
            class = "btn-primary btn-lg",
            style = "float: right;",
            icon  = icon("save")
          )
        ),
        verbatimTextOutput("selections")
      )
    )
  )
)
server <- function(input, output, session){

  Paths <- treeNavigatorServer(
    "explorer", rootFolder = getwd(),
    search = list( # (search in the visited folders only)
      show_only_matches  = TRUE,
      case_sensitive     = TRUE,
      search_leaves_only = TRUE
    )
  )

  output[["selections"]] <- renderPrint({
    cat(Paths(), sep = "\n")
  })

  output[["dwnld"]] <- downloadHandler(
    filename = "myArchive.zip",
    content = function(file){
      zip(file, files = Paths())
    }
  )

}

if(interactive()) shinyApp(ui, server)

Package 'jsTreeR'

Help Index

Countries

Description

Usage

Format

Folder gadget

Description

Usage

Arguments

Value

Note

Examples

HTML widget displaying an interactive tree

Description

Usage

Arguments

Value

Examples

Shiny bindings for jstree

Description

Usage

Arguments

Value

Shiny values

Destroy jstree

Description

Usage

Arguments

Value

Run a Shiny jsTreeR example

Description

Usage

Arguments

Value

Examples

jsTreeR examples

Description

Usage

Value

Examples

Objects imported from other packages

Description

Update jstree

Description

Usage

Arguments

Value

Tree navigator (Shiny module)

Description

Usage

Arguments

Value

Examples