R/weatherApp.R

In harjew/lab5G3: Computer lab 5

#' This is an example for shiny app.
#' This function starts the shiny app where you can check the weather.
#' 
#' @importFrom shiny runApp
#' @importFrom utils installed.packages
#' @export

weatherApp<-function(){
    if(is.element("lab5G3",utils::installed.packages()[,1])==F){
      cat("Try to install my package first devtools::install_github(''harjew/lab5G3'')")
      stop("Install package 'lab5G3' and try again.")
    }
  
  directions<-base::system.file("app","app.R",package = "lab5G3")
 
shiny::runApp(directions,display.mode = "normal")
}