typo laying site

R/app_ui.R

@@ -104,7 +104,7 @@ sidebar <- dashboardSidebar(
     menuItem("1. Landscape", tabName = "landscape", icon = icon("map")),
     menuItem("2. Pollen Dispersal", tabName = "dispersal", icon = icon("layer-group")),
     menuItem("3. Emission & Deposition", tabName = "emission", icon = icon("layer-group")),
-    menuItem("4. Layin sites", tabName = "host", icon = icon("layer-group")),
+    menuItem("4. Laying sites", tabName = "host", icon = icon("layer-group")),
     menuItem("5. Phenology", tabName = "development", icon = icon("layer-group")),
     menuItem("6. Exposure", tabName = "exposure", icon = icon("layer-group")),
     menuItem("7. Adverse effects", tabName = "damage", icon = icon("layer-group")),