server.R

library(tidyverse)
library(mapproj)
library(shiny)
library(astrolibR)
source("data.R")
source("coordinates.R")
source("plots.R")


# Define server logic required to draw a histogram
server <- function(input, output) {
    
    output$planets <- DT::renderDataTable({
        objects() %>% 
            select(name, ra, dec)
        }, 
        options = list(pageLength = 15, dom = "ftp"),
        rownames = FALSE)
    
    ha <- reactive({
        ct2lst(input$long, "", date_to_jd(now(tz = "UTC")))
        
    })

    output$plot_all <- renderPlot({
        plot_stars(lat = input$lat, ha = ha(), globe = FALSE)
    })
    
    output$plot_up <- renderPlot({
        plot_stars(lat = input$lat, ha = ha())
    })
    
    output$plot_down <- renderPlot({
        plot_stars(lat = -input$lat, ha = ha()+12)
    })
}