library(readr)
amedas_stations <- read_csv(here::here("data-raw/ame_master_20210707.csv"), locale = locale(encoding = "CP932")) %>%
dplyr::mutate(ローマ字名 = zipangu::str_conv_romanhira(カタカナ名,"roman"), .after = カタカナ名)
save(amedas_stations, file = "data/amedas_stations.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.