Running 'app.R' [161s]
  Running 'no_nav.R' [155s]
  Running 'side_nav_tabs.R' [173s]
Running the tests in 'tests/app.R' failed.
Complete output:
  > if(interactive()){
  +   library(shiny)
  +   library(shinymaterial)
  +   
  +   ui <-
  +     material_page(materialize_in_www = FALSE,
  +                   primary_theme_color = "yellow",
  +                   secondary_theme_color = "black",
  +       title = "Testing", nav_bar_fixed = TRUE,
  +      # nav_bar_color = 'red lighten-3',
  +       background_color = "white",
  +       include_icons = TRUE, include_fonts = TRUE,
  +       material_side_nav(
  +         tags$h4("stuff"),
  +         background_color = "blue lighten-4"
  +       ),
  +       tags$div(
  +         class = "container",
  +         material_button(
  +           input_id = "selectTabTest",
  +           "Select Second Green Tab"
  +         ),
  +         material_modal(
  +           modal_id = "example_modal",
  +           button_text = "Modal",
  +           title = "Example Modal Title",
  +           button_color = "red lighten-4",
  +           button_depth = 5,
  +           shiny::tags$p("Modal Content"),
  +           close_button_label = "Close2"
  +         ),
  +         material_modal(
  +           modal_id = "example_modal2",
  +           button_text = "Modal2",
  +           title = "Example Modal Title",
  +           button_color = "red lighten-4",
  +           button_depth = 5,
  +           shiny::tags$p("Modal Content"),
  +           close_button_label = "Close2", 
  +           display_button = FALSE,
  +           material_button(
  +             input_id = "close_modal2", 
  +             label = "TEST CLOSE MODAL"
  +           )
  +         ),
  +         material_button(input_id = "open_modal2", label = "testmodal"),
  +         material_tabs(
  +           tabs = c(
  +             "Example Tab 1" = "example_tab_1",
  +             "Example Tab 2" = "example_tab_2"
  +           )
  +         ),
  +         material_tabs(
  +           tabs = c(
  +             "Example Tab 11" = "example_tab_11",
  +             "Example Tab 22" = "example_tab_22"
  +           ),
  +           color = "green"
  +         ),
  +         material_tab_content(tab_id = "example_tab_11",
  +                              "tab 1 stuff"),
  +         material_tab_content(tab_id = "example_tab_22",
  +                              plotOutput("tab2Plot"),
  +                              "tab 2 stuff"),
  +         material_card(
  +           title = "Example Card div",
  +           shiny::tags$h1("Card Content"),
  +           depth = 5, divider = TRUE
  +         ),
  +         material_card(
  +           title = "Example Card no div",
  +           shiny::tags$h1("Card Content"),
  +           depth = 5
  +         
  +       ),
  +       material_card(
  +         title = "Example Card blue div",
  +         shiny::tags$h1("Card Content"),
  +         depth = 5, color = "blue", divider = TRUE
  +       ),
  +         # Button ------------------------------------------------------------------
  +         material_input(
  +           type = "button",
  +           input_id = "input_button1",
  +           label = "IButton"
  +         ),
  +         material_button(
  +           input_id = "button1",
  +           label = "Button"
  +         ),
  +       shinymaterial::material_floating_button(input_id = "float", icon="cloud", pulse = TRUE),
  +         material_input(
  +           type = "button",
  +           input_id = "input_button2",
  +           label = "IButton",
  +           icon = "cloud",
  +           depth = 5,
  +           color = "blue"
  +         ),
  +         material_button(
  +           input_id = "button2",
  +           label = "Button",
  +           icon = "cloud",
  +           depth = 5,
  +           color = "blue lighten-4"
  +         ),
  +         # Checkbox ------------------------------------------------------------------
  +         material_input(
  +           type = "checkbox",
  +           input_id = "input_checkbox1",
  +           label = "Icheckbox"
  +         ),
  +         material_checkbox(
  +           input_id = "checkbox1",
  +           label = "checkbox"
  +         ),
  +         material_input(
  +           type = "checkbox",
  +           input_id = "input_checkboxBLUE2",
  +           label = "Icheckbox BLUE",
  +           initial_value = TRUE,
  +           color = "blue"
  +         ),
  +         material_checkbox(
  +           input_id = "checkbox2",
  +           label = "checkbox",
  +           initial_value = TRUE,
  +           color = "red"
  +         ),
  +         # Switch ------------------------------------------------------------------
  +         material_input(
  +           type = "switch",
  +           input_id = "input_switch1",
  +           off_label = "Off",
  +           on_label = "On"
  +         ),
  +         material_switch(
  +           input_id = "switch1",
  +           off_label = "Off",
  +           on_label = "On"
  +         ),
  +         material_input(
  +           type = "switch",
  +           input_id = "input_switch2",
  +           off_label = "Off",
  +           on_label = "On",
  +           initial_value = TRUE,
  +           color = "blue"
  +         ),
  +         material_switch(
  +           input_id = "switch2",
  +           off_label = "Off",
  +           on_label = "On",
  +           initial_value = TRUE,
  +           color = "#bbdefb"
  +         ),
  +         # Floating Button ------------------------------------------------------------------
  +         # material_input(
  +         #   type = "floating_button",
  +         #   input_id = "input_floating_button1"
  +         # )
  +         # material_floating_button(
  +         #   input_id = "floating_button1"
  +         # )
  +         # 
  +         # material_input(
  +         #   type = "floating_button",
  +         #   input_id = "input_floating_button2",
  +         #   icon = "cloud",
  +         #   depth = 5,
  +         #   color = "blue"
  +         # )
  +         # material_floating_button(
  +         #   input_id = "floating_button2",
  +         #   icon = "cloud",
  +         #   depth = 5,
  +         #   color = "blue"
  +         # ),
  +         # Number box ------------------------------------------------------------------
  +         material_input(
  +           type = "number_box",
  +           input_id = "input_number_box1",
  +           label = "input_number_box1",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10
  +         ),
  +         material_number_box(
  +           input_id = "number_box1",
  +           label = "number_box1",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10
  +         ),
  +         
  +         material_input(
  +           type = "number_box",
  +           input_id = "input_number_box2",
  +           label = "input_number_box2",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10,
  +           color = "blue"
  +         ),
  +         material_number_box(
  +           input_id = "number_box2",
  +           label = "number_box2",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10,
  +           color = "#bbdefb"
  +         ),
  +         
  +         # Text box ------------------------------------------------------------------
  +         material_input(
  +           type = "text_box",
  +           input_id = "input_text_box1",
  +           label = "input_text_box1"
  +         ),
  +         material_text_box(
  +           input_id = "text_box1",
  +           label = "text_box1", 
  +           value = "STUFF23232",
  +           icon = "cloud"
  +         ),
  +         
  +         material_input(
  +           type = "text_box",
  +           input_id = "input_text_box2",
  +           label = "input_text_box2",
  +           color = "blue"
  +         ),
  +         material_text_box(
  +           input_id = "text_box2",
  +           label = "text_box2",
  +           color = "blue"
  +         ),
  +         # password box ------------------------------------------------------------------
  +         material_input(
  +           type = "password_box",
  +           input_id = "input_password_box1",
  +           label = "input_password_box1"
  +         ),
  +         material_password_box(
  +           input_id = "password_box1",
  +           label = "password_box1"
  +         ),
  +         
  +         material_input(
  +           type = "password_box",
  +           input_id = "input_password_box2",
  +           label = "input_password_box2",
  +           color = "red"
  +         ),
  +         material_password_box(
  +           input_id = "password_box",
  +           label = "password_box_red",
  +           color = "#ef5350"
  +         ),
  +         # material_floating_button(
  +         #   input_id = "example_floating_button",
  +         #   icon = "mode_edit",
  +         #   depth = 5,
  +         #   color = "red lighten-2"
  +         # ),
  +         # Radio buttons ------------------------------------------------------------------
  +         material_input(
  +           type = "radio-button",
  +           input_id = "input_example_radio_button1",
  +           label = "Radio Button",
  +           choices = c(
  +             "Cake" = "c",
  +             "Pie" = "p",
  +             "Brownie" = "b"
  +           )
  +         ),
  +         material_radio_button(
  +           input_id = "example_radio_button1",
  +           label = "Radio Button VALUE",
  +           choices = c(
  +             "Cake" = "c1",
  +             "Pie" = "p1",
  +             "Brownie" = "b1"
  +           )
  +         ),
  +         material_input(
  +           type = "radio-button",
  +           input_id = "input_example_radio_button2",
  +           label = "Radio Button",
  +           choices = c(
  +             "Cake" = "c2",
  +             "Pie" = "p2",
  +             "Brownie" = "b2"
  +           ),
  +           color = "blue"
  +         ),
  +         material_radio_button(
  +           input_id = "example_radio_button2",
  +           label = "Radio Button",
  +           choices = c(
  +             "Cake" = "c3",
  +             "Pie" = "p3",
  +             "Brownie" = "b3"
  +           ),
  +           color = "blue",
  +           with_gap = TRUE
  +         ),
  +         # slider ------------------------------------------------------------------
  +         material_input(
  +           type = "slider",
  +           input_id = "input_example_slider1",
  +           label = "slider",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10,
  +           color = "blue"
  +         ),
  +         material_slider(
  +           input_id = "example_slider1",
  +           label = "slider  step 3",
  +           min_value = 5,
  +           max_value = 15,
  +           initial_value = 10,
  +           step_size = 3,
  +           color = "#bbdefb"
  +         ),
  +         # dropdown
  +         material_input(
  +           type = "dropdown",
  +           input_id = "input_example_dropdown1",
  +           label = "Drop down",
  +           choices = c(
  +             "Chicken" = "c1",
  +             "Steak" = "s1",
  +             "Fish" = "f1"
  +           ),
  +           selected = c("c"),
  +           multiple = FALSE
  +         ),
  +         
  +         material_dropdown(
  +           input_id = "example_dropdown1",
  +           label = "Drop down",
  +           choices = c(
  +             "Chicken" = "c2",
  +             "Ste ak" = "s 2",
  +             "Fish" = "f2"
  +           ),
  +           selected = c("c2"),
  +           multiple = FALSE,
  +           color = "#ef5350"
  +         ),
  +         material_dropdown(
  +           input_id = "input_example_dropdown_mult",
  +           label = "Drop down",
  +           choices = c(
  +             "Chick en" = "c 2",
  +             "Ste ak" = "s 2",
  +             "Fi sh" = "f 2"
  +           ),
  +           selected = c("c 2"),
  +           multiple = TRUE,
  +           color = "#ef5350"
  +         ),
  +         # date picker -------------------------------------------------------------
  +         material_date_picker(
  +           input_id = "example_date_picker",
  +           label = "Date picker",
  +           color = 'purple'
  +         ),
  +       material_date_picker(
  +         input_id = "example_date_picker2",
  +         label = "Date picker 2", value = "Jun 11, 1986"
  +       ),
  +         # file input --------------------------------------------------------------
  +         material_file_input(
  +           input_id = "example_file_input",
  +           label = "File",
  +           color = "#2196f3"
  +         ),
  +         material_file_input(
  +           input_id = "example_file_input2",
  +           label = "File"
  +         ),
  +       
  +         material_switch(input_id = "update_button_test_switch", 
  +                         off_label = "No", on_label = "Yes", 
  +                         initial_value = TRUE),
  +         material_button(input_id = "update_button_test",
  +                         label = "test", icon = "cloud"),
  +         br(),
  +         material_button(input_id = "update_text_test_button",
  +                         label = "update text"),
  +         material_text_box(input_id = "update_text_test",
  +                           label = "text",
  +                           value = "ok"),
  +         plotOutput('testPlot'),
  +         material_button(input_id = "update_dropdown_test_button",
  +                         label = "update dropdown"),
  +         material_dropdown(input_id = "update_dropdown_test",
  +                           label = "test",
  +                           choices = c(
  +                             "A 1" = "a", 
  +                             "B 1" = "o k")),
  +         plotOutput('testDropdownPlot'),
  +         
  +         material_button(input_id = "update_number_box_test_button",
  +                         label = "update number box"),
  +         material_number_box(input_id = "update_number_box_test",
  +                             label = "test step 3",
  +                             min_value = 1,
  +                             max_value = 50,
  +                             step_size = 3,
  +                             initial_value = 2),
  +         plotOutput('testNumberboxPlot'),
  +         
  +         material_button(input_id = "update_password_test_button",
  +                         label = "update password"),
  +         material_password_box(input_id = "update_password_test",
  +                               label = "text"),
  +         plotOutput('testPasswordPlot'),
  +         
  +         
  +         material_button(input_id = "update_switch_test_button",
  +                         label = "update switch"),
  +         material_switch(input_id = "update_switch_test",
  +                         initial_value = FALSE),
  +         plotOutput('testSwitchPlot'),
  +         
  +         material_button(input_id = "update_radio_button_test_button",
  +                         label = "update radio button"),
  +         material_radio_button(input_id = "update_radio_button_test",
  +                               label = "text",choices = c("Adf" =  "a_update", "Bdf" = "b_update"), with_gap = TRUE),
  +         plotOutput('testRadioButtonPlot'),
  +         
  +         material_button(input_id = "update_slider_test_button",
  +                         label = "update slider"),
  +         material_slider(input_id = "update_slider_test",
  +                               label = "slider",
  +                               min_value = 5,
  +                         max_value = 20,
  +                         initial_value = 8),
  +         plotOutput('testSliderPlot'),
  +         
  +         material_button(input_id = "update_checkbox_test_button",
  +                         label = "update checkbox"),
  +         material_checkbox(input_id = "update_checkbox_test",
  +                         label = "checkbox",
  +                         initial_value = FALSE),
  +         plotOutput('testCheckboxPlot'),
  +         
  +         material_button(input_id = "update_date_picker_test_button",
  +                         label = "update date_picker"),
  +         material_date_picker(input_id = "update_date_picker_test",
  +                           label = "date_picker"),
  +         plotOutput('testDatePickerPlot')
  +       )
  +     )
  +   
  +   
  +   
  +   
  +   
  +   server <- function(input, output, session) {
  +     
  +     # observeEvent(input$selectTabTest, {
  +     #   select_material_tab(session, "example_tab_22")
  +     # })
  +     output$tab2Plot <- renderPlot({
  +       plot(1:10)
  +     })
  +     observeEvent(input$open_modal2, {
  +       message('this happened')
  +       if(input$open_modal2 > 0){
  +       open_material_modal(session, "example_modal2")
  +       }
  +     })
  +     observeEvent(input$close_modal2, {
  +       message('this happened')
  +       if(input$close_modal2 > 0){
  +         close_material_modal(session, "example_modal2")
  +       }
  +     })
  +     #button
  +     observeEvent(input$input_button1, {
  +       message(input$input_button1)
  +     })
  +     observeEvent(input$button1, {
  +       message(input$button1)
  +     })
  +     observeEvent(input$input_button2, {
  +       message(input$input_button2)
  +     })
  +     observeEvent(input$button2, {
  +       message(input$button2)
  +     })
  +     #checkbox
  +     observeEvent(input$input_checkbox1, {
  +       message(input$input_checkbox1)
  +     })
  +     observeEvent(input$checkbox1, {
  +       message(input$checkbox1)
  +     })
  +     observeEvent(input$input_checkboxBLUE2, {
  +       message(input$input_checkboxBLUE2)
  +     })
  +     observeEvent(input$checkbox2, {
  +       message(input$checkbox2)
  +     })
  +     #switch
  +     observeEvent(input$input_switch1, {
  +       message(input$input_switch1)
  +     })
  +     observeEvent(input$switch1, {
  +       message(input$switch1)
  +     })
  +     observeEvent(input$input_switch2, {
  +       message(input$input_switch2)
  +     })
  +     observeEvent(input$switch2, {
  +       message(input$switch2)
  +     })
  +     # floating button
  +     observeEvent(input$floating_button2, {
  +       message(input$floating_button2)
  +     })
  +     
  +     # Number box
  +     observeEvent(input$input_number_box1, {
  +       message(input$input_number_box1)
  +     })
  +     observeEvent(input$number_box1, {
  +       message(input$number_box1)
  +     })
  +     observeEvent(input$input_number_box2, {
  +       message(input$input_number_box2)
  +     })
  +     observeEvent(input$number_box2, {
  +       message(input$number_box2)
  +     })
  +     #text box
  +     observeEvent(input$input_text_box1, {
  +       message(input$input_text_box1)
  +     })
  +     observeEvent(input$text_box1, {
  +       message(input$text_box1)
  +     })
  +     observeEvent(input$input_text_box2, {
  +       message(input$input_text_box2)
  +     })
  +     observeEvent(input$text_box2, {
  +       message(input$text_box2)
  +     })
  +     # floating button
  +     observeEvent(input$example_floating_button, {
  +       message(input$example_floating_button)
  +     })
  +     #password box
  +     observeEvent(input$input_password_box1, {
  +       message(input$input_password_box1)
  +     })
  +     observeEvent(input$password_box1, {
  +       message(input$password_box1)
  +     })
  +     observeEvent(input$input_password_box2, {
  +       message(input$input_password_box2)
  +     })
  +     observeEvent(input$password_box2, {
  +       message(input$password_box2)
  +     })
  +     
  +     # slider
  +     observeEvent(input$input_example_slider1, {
  +       message(input$input_example_slider1)
  +     })
  +     observeEvent(input$example_slider1, {
  +       message(input$example_slider1)
  +     })
  +     
  +     #input_radio_button
  +     observeEvent(input$input_example_radio_button1, {
  +       message(input$input_example_radio_button1)
  +     })
  +     observeEvent(input$example_radio_button1, {
  +       message(input$example_radio_button1)
  +     })
  +     observeEvent(input$input_example_radio_button2, {
  +       message(input$input_example_radio_button2)
  +     })
  +     observeEvent(input$example_radio_button2, {
  +       message(input$example_radio_button2)
  +     })
  +     
  +     observeEvent(input$input_example_dropdown1, {
  +       message(input$input_example_dropdown1)
  +     })
  +     
  +     observeEvent(input$input_example_dropdown_mult, {
  +       message(input$input_example_dropdown_mult)
  +     })
  +     observeEvent(input$example_dropdown1, {
  +       message(input$example_dropdown1)
  +     })
  +     observeEvent(input$example_date_picker, {
  +       message("Date picker 1 class")
  +       message(class(input$example_date_picker))
  +       message(input$example_date_picker)
  +       
  +     })
  +     observeEvent(input$example_date_picker2, {
  +       message("Date picker 2 class")
  +       message(class(input$example_date_picker2))
  +       message(input$example_date_picker2)
  +     })
  +     observe({
  +       if (input$update_button_test_switch)
  +         update_material_button(session, "update_button_test", "Active", "cloud", FALSE)
  +       else
  +         update_material_button(session, "update_button_test", "Non Active", "close", TRUE)
  +     })
  +     observeEvent(input$update_text_test_button, {
  +       
  +       update_material_text_box(session,
  +                                input_id = "update_text_test",
  +                                value = Sys.time())
  +       
  +     })
  +     
  +     output$testPlot <- renderPlot({
  +       plot(1:10, main = input$update_text_test)
  +     })
  +     
  +     observeEvent(input$update_dropdown_test_button, {
  +       update_material_dropdown(
  +         session,
  +         input_id = "update_dropdown_test",
  +         value = "o k"
  +       )
  +     })
  +     
  +     output$testDropdownPlot <- renderPlot({
  +       plot(1:10, main = input$update_dropdown_test)
  +     })
  +     
  +     
  +     
  +     # update number box -----------------------------------
  +     observeEvent(input$update_number_box_test_button, {
  +       update_material_number_box(
  +         session,
  +         input_id = "update_number_box_test",
  +         value = 10
  +       )
  +     })
  +     
  +     output$testNumberboxPlot <- renderPlot({
  +       plot(1:input$update_number_box_test)
  +     })
  +     
  +     
  +     # Update password box ---------------------------------
  +     observeEvent(input$update_password_test_button, {
  +       
  +       update_material_text_box(session,
  +                                input_id = "update_password_test",
  +                                value = "ok")
  +       
  +     })
  +     
  +     output$testPasswordPlot <- renderPlot({
  +       plot(1:10, main = input$update_password_test)
  +     })
  +     
  +     
  +     # Update switch ---------------------------------
  +     observeEvent(input$update_switch_test_button, {
  +       
  +       update_material_switch(session,
  +                              input_id = "update_switch_test",
  +                              value = TRUE)
  +       
  +     })
  +     
  +     output$testSwitchPlot <- renderPlot({
  +       message(typeof(input$update_switch_test))
  +       plot(1:10, main = ifelse(input$update_switch_test, "YES", "NO"))
  +     })
  +     
  +     # Update radiobutton ---------------------------------
  +     observeEvent(input$update_radio_button_test_button, {
  +       
  +       update_material_radio_button(session,
  +                                    input_id = "update_radio_button_test",
  +                                    value = "b_update")
  +       
  +     })
  +     
  +     output$testRadioButtonPlot <- renderPlot({
  +       plot(1:10, main = input$update_radio_button_test)
  +     })
  +     
  +     # Update slider ---------------------------------
  +     observeEvent(input$update_slider_test_button, {
  +       
  +       update_material_slider(session,
  +                                    input_id = "update_slider_test",
  +                                    value = 15)
  +       
  +     })
  +     
  +     output$testSliderPlot <- renderPlot({
  +       req(input$update_slider_test)
  +       
  +       plot(1:input$update_slider_test)
  +     })
  +     
  +     # Update checkbox ---------------------------------
  +     observeEvent(input$update_checkbox_test_button, {
  +       
  +       update_material_checkbox(session,
  +                              input_id = "update_checkbox_test",
  +                              value = TRUE)
  +       
  +     })
  +     
  +     output$testCheckboxPlot <- renderPlot({
  +       # message(typeof(input$update_checkbox_test))
  +       plot(1:10, main = ifelse(input$update_checkbox_test, "True Value", "False Value"))
  +     })
  +     
  +     
  +     
  +     # Update date picker ---------------------------------
  +     observeEvent(input$update_date_picker_test_button, {
  + 
  +       update_material_date_picker(session,
  +                                input_id = "update_date_picker_test",
  +                                value = "not a date")
  +       message(input$update_date_picker_test)
  +     })
  +     
  +   
  +     
  +     output$testDatePickerPlot <- renderPlot({
  +       message(input$update_date_picker_test)
  +       # message(typeof(input$update_checkbox_test))
  +       plot(1:10, main = input$update_date_picker_test)
  +     })
  +     
  +     
  +     observeEvent(input$example_file_input, {
  +       inFile <- input$example_file_input
  +       #  message(Sys.time())
  +       # message(paste(input$example_file_input, collapse = ' - '))
  +       if (is.null(inFile))
  +         return(NULL)
  +       #  req(input$example_file_input)
  +       #  x <- input$example_file_input
  +       # save(x, file = "infile.Rdata")
  +       message(paste0("length inFile ", length(inFile)))
  +       message(paste0("names inFile ", names(inFile)))
  +       #  message(input$example_file_input)
  +       x <- read.csv(inFile$datapath)
  +       message(head(x))
  +     })
  +   }
  +   
  +   # Run the application
  +   shinyApp(ui = ui, server = server)
  + }
  > 
  > proc.time()
     user  system elapsed 
     1.03    0.03    1.04 
Running the tests in 'tests/no_nav.R' failed.
Complete output:
  > if(interactive()){
  +   library(shiny)
  +   library(shinymaterial)
  +   
  +   # Wrap shinymaterial apps in material_page
  +   ui <- material_page(
  +     title = "Basic Page", 
  +     include_nav_bar = FALSE,
  +     tags$div("Page Content")
  +   )
  +   
  +   server <- function(input, output) {
  +     
  +   }
  +   shinyApp(ui = ui, server = server)
  + }
  > 
  > proc.time()
     user  system elapsed 
     0.12    0.07    0.21 
Running the tests in 'tests/side_nav_tabs.R' failed.
Complete output:
  > if(interactive()){
  +   library(shiny)
  +   library(shinymaterial)
  +   
  +   # Wrap shinymaterial apps in material_page
  +   ui <- material_page(
  +     title = "Basic Page + Side-Nav with Tabs",
  +     # Place side-nav in the beginning of the UI
  +     material_side_nav(
  +       fixed = TRUE,
  +       # Place side-nav tabs within side-nav
  +       material_side_nav_tabs(
  +         side_nav_tabs = c(
  +           "Example Side-Nav Tab 1" = "example_side_nav_tab_1",
  +           "Example Side-Nav Tab 2" = "example_side_nav_tab_2"
  +         ),
  +         icons = c("cast", "insert_chart")
  +       )
  +     ),
  +     # Define side-nav tab content
  +     material_side_nav_tab_content(
  +       side_nav_tab_id = "example_side_nav_tab_1",
  +       tags$h1("First Side-Nav Tab Content")
  +     ),
  +     material_side_nav_tab_content(
  +       side_nav_tab_id = "example_side_nav_tab_2",
  +       tags$h1("Second Side-Nav Tab Content")
  +     )
  +   )
  +   
  +   
  +   server <- function(input, output) {
  +     
  +   }
  +   shinyApp(ui = ui, server = server)
  + }
  > 
  > proc.time()
     user  system elapsed 
     0.17    0.06    0.21