dev/test_dev/test-mod_homepage.R

source(file.path('../../R', 'mod_homepage.R'), local=TRUE)$value
source(file.path('../../R', 'mod_insert_md.R'), local=TRUE)$value


ui <- fluidPage(
 
  navbarPage(
    mod_homepage_ui('home')
    )
  )

# Define server logic to summarize and view selected dataset ----
server <- function(input, output, session) {
  
  mod_homepage_server('home')
  
}


shinyApp(ui, server)
samWieczorek/Prostar2 documentation built on Jan. 18, 2021, 11:42 p.m.