diff --git a/DESCRIPTION b/DESCRIPTION index 7a2d5289..ed6e8aaf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,13 +1,13 @@ Package: dash Title: An Interface to the Dash Ecosystem for Authoring Reactive Web Applications -Version: 0.2.0 +Version: 0.3.0 Authors@R: c(person("Chris", "Parmer", role = c("aut"), email = "chris@plot.ly"), person("Ryan Patrick", "Kyle", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-5829-9867"), email = "ryan@plot.ly"), person("Carson", "Sievert", role = c("aut"), comment = c(ORCID = "0000-0002-4958-2844")), person(family = "Plotly Technologies", role = "cph")) Description: A framework for building analytical web applications, Dash offers a pleasant and productive development experience. No JavaScript required. Depends: R (>= 3.0.2) Imports: dashHtmlComponents (== 1.0.2), - dashCoreComponents (== 1.6.0), + dashCoreComponents (== 1.8.0), dashTable (== 4.5.1), R6, fiery (> 1.0.0), @@ -32,8 +32,8 @@ Collate: 'print.R' 'internal.R' Remotes: plotly/dash-html-components@55c3884, - plotly/dash-core-components@c107e0f, - plotly/dash-table@3058bd5 + plotly/dash-core-components@fc153b4, + plotly/dash-table@79d46ca License: MIT + file LICENSE Encoding: UTF-8 LazyData: true diff --git a/R/dash.R b/R/dash.R index 9c86c5a0..bbe9fc32 100644 --- a/R/dash.R +++ b/R/dash.R @@ -5,7 +5,7 @@ #' @usage Dash #' #' @section Constructor: Dash$new( -#' name = "dash", +#' name = NULL, #' server = fiery::Fire$new(), #' assets_folder = 'assets', #' assets_url_path = '/assets', @@ -174,7 +174,7 @@ Dash <- R6::R6Class( config = list(), # i.e., the Dash$new() method - initialize = function(name = "dash", + initialize = function(name = NULL, server = fiery::Fire$new(), assets_folder = 'assets', assets_url_path = '/assets', @@ -191,12 +191,15 @@ Dash <- R6::R6Class( suppress_callback_exceptions = FALSE) { # argument type checking - assertthat::assert_that(is.character(name)) + if (!is.null(name)) + assertthat::assert_that(is.character(name)) assertthat::assert_that(inherits(server, "Fire")) assertthat::assert_that(is.logical(serve_locally)) assertthat::assert_that(is.logical(suppress_callback_exceptions)) # save relevant args as private fields + if (is.null(name)) + name <- "Dash" private$name <- name private$serve_locally <- serve_locally private$eager_loading <- eager_loading