The eclipse from benda18

Replace Eclipse Info Table with Easier-to-Understand Info

Replace the Eclipse Info table at top right with the following:

module_get.user.loc

get user location

add other links to readme

eclipse/README.md

Line 18 in 4dc8002

[to be added at a future date]

need to be able to filter by continent by checkboxes

eclipse/shiny.module_worldmap/app.R

Lines 65 to 68 in 1b34f4d

    
           geom_point(data = slice_max(world.cities, 
        
                                       order_by = pop,  
        
                                       prop = 0.025),  
        
                      aes(x = long, y = lat))

Error Handling: Address Search

When input address is NULL
When input address is not found by geocoder
remove red warning when NULL or incorrect

Stadia Maps integration

make map interactive with Stadia Maps integration. Use the following code as example:

https://github.com/benda18/shiny_misc/blob/main/shiny_eras_tour/shiny/eras_tour/app.R#L22-L23
https://github.com/benda18/shiny_misc/blob/main/shiny_eras_tour/shiny/eras_tour/app.R#L56-L137
https://github.com/benda18/shiny_misc/blob/main/shiny_eras_tour/shiny/eras_tour/app.R#L44

and possibly more code

module_deploy.tabs

learn how to deploy tabs in GUI

tabs for location type

plot_explain_how_it_works

flow chart
words

leaflet implementation

clickable map instead of geocode

eclipse/shiny_next_eclipse/app.R

Line 32 in 6824012

titlePanel("Find the Next Solar and Lunar Eclipse for a Location"),

remove geocoding utility and instead use a map of the world / usa / etc. and allow mouse-click to pick x/y

clickable world map

shiny production improvements

PLANNER TOOL

add a conditional geom_vertical() for sys.time() for period of eclipse +/- 1 hour
add next eclipse logic back in
link to next_eclipse
link to all_eclipses
qr code for sharing
update sources and contact box

NEXT ECLIPSE TOOL

link to planner_tool
link to all_eclipses
qr code for sharing
update sources and contact box

ALL ECLIPSES TOOL

add filter for all eclipses
link to planner_tool
link to next_eclipse
qr code for sharing

add sources to readme

eclipse/README.md

Line 15 in 4dc8002

[to be added at a future date]

This logic doesn't work all the time

eclipse/R/next_eclipse_total.R

Lines 63 to 77 in 07fdd1f

    
           ecl_type <- c("total" = min(abs(min(when_next$tret[when_next$tret > 0]) - 
        
                                             swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),  
        
                                                                       ephe_flag = 4,  
        
                                                                       ifltype = SE$ECL_TOTAL,  
        
                                                                       backward = F)$tret)), 
        
                         "annular" = min(abs(min(when_next$tret[when_next$tret > 0]) - 
        
                                               swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),  
        
                                                                         ephe_flag = 4,  
        
                                                                         ifltype = SE$ECL_ANNULAR,  
        
                                                                         backward = F)$tret)), 
        
                         "partial" = min(abs(min(when_next$tret[when_next$tret > 0]) - 
        
                                               swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),  
        
                                                                         ephe_flag = 4,  
        
                                                                         ifltype = SE$ECL_PARTIAL,  
        
                                                                         backward = F)$tret)))

shiny app find future eclipse

inputs:

address
search into future or past

filters:

min. obscuration -OR- maximum drive distance
partial annual vs total eclipse

outputs:

bug with chart at center of totality near cleveland

15 main st, cleveland, oh

Explore Future Eclipses

Add Personal Contact Info

Make Bold and Large with HTLM

eclipse/shiny_eclipse_timer/app.R

Line 74 in 4ce5043

fluidRow(textOutput(outputId = "return_totality")) #totality? goes here

HTML and GUI cleanup

front-end cleanup

timezone error

eclipse/shiny_next_eclipse/app.R

Lines 154 to 156 in 9fdb1c0

    
           next_lunar <- strftime(x = with_tz(ymd_hms(paste(swephR::swe_jdet_to_utc(when_lunar$tret[1], 1),  
        
                                                    sep = "-", collapse = "-")), tzone = "America/New_York"),  
        
                                  format = "%B %d, %Y at %I:%M%p %Z")

when deployed to server, this always is coming back as UTC timezone. doesn't happen in other webapp.

	geom_point(data = slice_max(world.cities,
	order_by = pop,
	prop = 0.025),
	aes(x = long, y = lat))

	ecl_type <- c("total" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_TOTAL,
	backward = F)$tret)),
	"annular" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_ANNULAR,
	backward = F)$tret)),
	"partial" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_PARTIAL,
	backward = F)$tret)))

	next_lunar <- strftime(x = with_tz(ymd_hms(paste(swephR::swe_jdet_to_utc(when_lunar$tret[1], 1),
	sep = "-", collapse = "-")), tzone = "America/New_York"),
	format = "%B %d, %Y at %I:%M%p %Z")

benda18 / eclipse Goto Github PK

eclipse's People

Contributors

Stargazers

Watchers

eclipse's Issues

Recommend Projects

Recommend Topics

Recommend Org