diff --git a/R/app_ui.R b/R/app_ui.R index 540bf40..3f03a6b 100644 --- a/R/app_ui.R +++ b/R/app_ui.R @@ -245,33 +245,36 @@ create_ui <- function() { ), f7AccordionItem( title = "Docs", - f7BlockTitle("St. Andrews Park", size = "medium"), - f7Block( - f7List( - inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, - f7ListItem(title = "Covenants", href = "docs/st_andrews/2000_01_01_st_andrews_covenants.pdf"), - f7ListItem(title = "Map (unrecorded)", href = "docs/st_andrews/2004_06_23_sap_map.pdf") - ) - ), - f7BlockTitle("Patios 2", size = "medium"), - f7Block( - f7List( - inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, - f7ListItem(title = "Plat", href = "docs/patios_2/1997_08_12_patios_2_plat.pdf") - ) - ), - f7BlockTitle("Patios 3", size = "medium"), - f7Block( - f7List( - inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, - f7ListItem(title = "Plat", href = "docs/patios_3/1998_11_17_patios_3_plat.pdf") - ) - ), - f7BlockTitle("Villas 2", size = "medium"), - f7Block( - f7List( - inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, - f7ListItem(title = "Plat", href = "docs/villas_2/1998_09_14_villas_2_plat.pdf") + f7Accordion( + id = "docs_accordion", + f7AccordionItem( + title = "St. Andrews Park", + f7List( + inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, + f7ListItem(title = "Covenants", href = "docs/st_andrews/2000_01_01_st_andrews_covenants.pdf"), + f7ListItem(title = "Map (unrecorded)", href = "docs/st_andrews/2004_06_23_sap_map.pdf") + ) + ), + f7AccordionItem( + title = "Patios 2", + f7List( + inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, + f7ListItem(title = "Plat", href = "docs/patios_2/1997_08_12_patios_2_plat.pdf") + ) + ), + f7AccordionItem( + title = "Patios 3", + f7List( + inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, + f7ListItem(title = "Plat", href = "docs/patios_3/1998_11_17_patios_3_plat.pdf") + ) + ), + f7AccordionItem( + title = "Villas 2", + f7List( + inset = TRUE, dividers = TRUE, strong = TRUE, outline = FALSE, + f7ListItem(title = "Plat", href = "docs/villas_2/1998_09_14_villas_2_plat.pdf") + ) ) ) )