change the opened plot to FI and update demo

Author: hbaniecki

NEWS.md

@@ -4,6 +4,7 @@
   * the deprecated alias `modelStudioOptions()` is removed from this version of the package; after being deprecated for over a year since **v1.1.0**. Use the recommended `ms_options()` instead.
   * added new parameter to `modelStudio()`: `N_sv = 3*N`, which by default decreases the number of observations used for the calculation of `Shapley Values` (rows in `data`)
   * `margin_left = NULL` by default and it is adjusted based on the length of variable names 
+  * the first plot opened in the dashboard is now `FI` instead of `BD` by default
 * add the `verbose` parameter to `modelStudio()` as an alias to `show_info` [(#101)](https://github.com/ModelOriented/modelStudio/issues/101)
 
 

R/data.R

@@ -6,7 +6,7 @@
 #' while \code{happiness_test} is the data from the year 2019, which imitates the 
 #' out-of-time validation.
 #' 
-#' Source: \href{https://www.kaggle.com/unsdsn/world-happiness}
+#' Source: \href{https://www.kaggle.com/unsdsn/world-happiness}{World Happiness Report at Kaggle.com}
 #' 
 #' The following columns: GDP per Capita, Social Support, Life Expectancy, 
 #' Freedom, Generosity, Corruption describe the extent to which these factors
@@ -22,10 +22,9 @@
 #' \item perceptions_of_corruption
 #' }
 #'
-#' @aliases happiness_test
+#' @aliases happiness_train happiness_test
 #' @docType data
 #' @name happiness_train
 #' @usage data(happiness_train); data(happiness_test)
-#' @format \code{happiness_train}: a data frame with 625 rows and 7 columns,
-#'  \code{happiness_test}: a data frame with 156 rows and 7 columns
+#' @format \code{happiness_train}: a data frame with 625 rows and 7 columns, \code{happiness_test}: a data frame with 156 rows and 7 columns
 NULL

inst/d3js/modelStudio.js

@@ -495,7 +495,7 @@ function initializeStudio() {
 
   if (facetData.length >= 1) {
     svg.selectAll('.enterChoiceButton').filter('#enterChoiceButton0').dispatch('click');
-    svg.select("#chosePlotButton0").select("#BD").dispatch('click');
+    svg.select("#chosePlotButton0").select("#FI").dispatch('click');
   }
 
   if (facetData.length >= 2) {