Initial commit shiny dashboard example (weather app)

howTo/shiny/shinyDashExample.R

+library(shiny)
+library(shinydashboard)
+
+# https://stackoverflow.com/questions/46307497/embed-weather-iframe-into-shiny-dashboard
+# https://www.mapcoordinates.net/en
+
+ui <- dashboardPage(
+  dashboardHeader(title = "Dashboard"),
+  dashboardSidebar(
+    sidebarMenu(
+      menuItem("Dashboard", 
+               tabName = "dashboard", 
+               icon = icon("dashboard")
+      )
+    )
+  ),
+  
+  dashboardBody(
+    tabItems(
+      tabItem(
+        tabName = "dashboard",
+        fluidRow(
+          tags$iframe(
+            seamless = "seamless", 
+            src = "https://forecast.io/embed/#lat=50.9373&lon=-1.4041&name=University of Southampton", 
+            height = 800, width = 1400
+          )
+        )
+      )
+    )
+  )
+)
+
+server <- function(input, output) {}
+shinyApp(ui, server)
\ No newline at end of file