harryprince

ext <- extent(c(xmin=116.45902633667,xmax=116.477222442627,ymin=39.940881729126,ymax=39.9528980255127))

ext %>% 
sf::st_bbox() %>% 
    sf::st_as_sfc() %>% 
    sf::st_set_crs(4326) %>% 
    sf::st_transform(3857) %>% 
    sf::st_bbox() %>% 
    mapview::mapview()
    

harryprince

See https://yihui.shinyapps.io/voice for the live demo. Make sure you have turned on your microphone and allow the web browser to have access to it. Credits go to annyang and also to @wch for showing me a minimal Shiny example. You can do four things on the scatterplot using your voice input:

• say "title something" to change the plot title, e.g. title good morning
• say "color a color name" to change the color, e.g. color blue
• say "bigger" or "smaller" to change the size of points
• say "regression" to add a linear regression line