Create a page_navbar() with nav_panel() calls for the following pages:
Add a nav_spacer() after these and then nav_menu() after this for a dropdown menu item. The nav_menu() should contain nav_items() for the website and GitHub links which can look like this roughly:
link_shiny <- tags$a(shiny::icon("github"), "Shiny", href = "https://github.com/rstudio/shiny", target = "_blank")
This page can still basically just be the current home page generated by the homepage.Rmd
and outputting the homempage.html
HTML fragment available in inst. Should receive some more attention and clean-up, but otherwise this is fine.
This page should contain a series of cards() or layout_*() functions for the inputs, the rhandsontable, and the DataTables (note datatable()
has a fill argument, fillContainer = TRUE
, that I might need to use).
The inputs currently grouped in a box can be combined into a tab or pilltab set up with the Type I error box.
The Add and Delete Row buttons should be moved to their own card grouped alongside the rhandsontable.
Approximation:
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.