Nothing
# output
output$screen <- renderPrint({
ds_screener(filt_data$p)
})
observeEvent(input$finalok, {
updateNavbarPage(session, 'mainpage', selected = 'tab_sample')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.