R/predict_fct.R

In vadmbertr/bonski.shiny: Show Where Ski Is Good

#' Predicts skiabilite
#'
#' Predicts skiabilite and stores them in the SQLite DB
#'
#' @export
#' @importFrom lubridate today
predict_skiabilite <- function() {
  model <- bonski.predict::OrientatedModel()
  skiabilite <- bonski.predict::predict_fresh(model)
  skiabilite$date <- today()
  db_con <- connect_db()
  insert_skiabilite(db_con, skiabilite)
}