dev/test_dev/test_mod_save_dataset.R

In samWieczorek/Magellan: A Pipeline Manager

library(shiny)
library(shinyBS)

source(file.path("../../R", "mod_Save_Dataset.R"), local=TRUE)$value


options(shiny.fullstacktrace = TRUE)

#### test modal ####
ui <- fluidPage(
  #actionButton('show', 'Show'),
  mod_Save_Dataset_ui(id = 'exemple')
)


server <- function(input, output, session) {
  observe({
    mod_Save_Dataset_server(id = 'exemple', 
                        data = reactive({feat1}))
    
  })
  
  
  
}

shinyApp(ui=ui, server=server)