界面
library(shiny)
library(leaflet)
library(dplyr)
library(leaflet.extras)
#import data
h2<-read.csv("https://earthquake.usgs.gov/fdsnws/event/1/query.csv?starttime=2010-05-11%2000:00:00&endtime=2019-05-18%2023:59:59&maxlatitude=38.376&minlatitude=-14.477&maxlongitude=137.461&minlongitude