server <- function(input, output, session, db) {
  screen_home_server("s_home", db = db)
}