inst/raw/shape_raw.r

In KatoPachi/YahooFinance: Web Scraping of Stock Price Data from Yahoo! Finance

library(tidyverse)
library(stringi)
dt <- readr::read_csv(
  "inst/raw/brand_code.csv",
  locale = locale(encoding = "cp932")
)

BrandCode <- dt %>%
  dplyr::select(
    "code" = "コード",
    "name" = "銘柄名",
    "category" = "市場\u30fb商品区分",
    "indust17" = "17業種区分"
  ) %>%
  dplyr::mutate(
    name = stringi::stri_trans_nfkc(name)
  )

usethis::use_data(BrandCode, overwrite = TRUE)
usethis::use_data(BrandCode, internal = TRUE, overwrite = TRUE)