diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index e2edc575e70a662cbf55a0c9359d66a0aba9b9b0..62e8c48ddb767cc8e8068f6110cce86acf4b4459 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -12,6 +12,19 @@
 ## See the License for the specific language governing permissions and
 ## limitations under the License.
 
+react_v <- shiny::reactiveValues
+react_f <- shiny::reactive
+react_e <- shiny::eventReactive
+obsrv <- shiny::observe
+vols <- shinyFiles::getVolumes
+
+path2vol <- function(path) {
+    ## This function returns shinyFiles compatible volumes.
+    splits <- split_path(path)
+    file.path(tail(splits,1),'')
+}
+
+
 prim_box<-function(...) {shinydashboard::box(...,
                                              status="primary",
                                              solidHeader=T)}