#' Utilities For 'kokudosuuchi' Package
#'
#' @name kokudosuuchiUtils
#' @docType package
#' @importFrom magrittr %>%
#' @importFrom rlang .data
NULL
HTML_DIR <- "downloaded_html"
# possibly empty e.g.: http://nlftp.mlit.go.jp/ksj/gml/datalist/KsjTmplt-L02-v2_3.html
# " " is a typo of , which is not translated as no-break space.
ZOKUSEI_PATTERN <- "\u5c5e\u6027\u60c5\u5831|\u5730\u7269\u60c5\u5831|^(\\s| )*$"
COLNAME_FRILL_PATTERN <- "(?<=^\u5c5e\u6027(\u60c5\u5831|\u540d|\u9805\u76ee))(\\s*[\uff08\\(].*[\uff09\\)])$"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.