R/Run_Indeed.R

In Ferdi28/group6project: Indeed Job Map

#' @title Shiny Application of Indeed Job Map
#' @description Run a shiny app to display Indeed Jobs on a map
#' @import shiny
#' @import tidyverse
#' @import lubridate
#' @import leaflet
#' @export
run_Indeed <- function() {
  appDir <- system.file("shiny-examples", "indeed_search", package = "group6project")
  if (appDir == "R/Run_Indeed.R") {
    stop(
      "Could not find example directory. Try re-installing group6project.",
      call. = FALSE
    )
  }

  shiny::runApp(appDir, display.mode = "normal")

}