## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(hanyupinyin)

## -----------------------------------------------------------------------------
to_pinyin("春眠不觉晓")
to_pinyin(c("你好", "世界"))

## -----------------------------------------------------------------------------
to_pinyin("Hello 世界", sep = " ", other_replace = "?")

## -----------------------------------------------------------------------------
to_pinyin_toneless("中华人民共和国")

## -----------------------------------------------------------------------------
to_pinyin_initials("中华人民共和国")

## -----------------------------------------------------------------------------
to_pinyin("银行行长", polyphone = TRUE)

## -----------------------------------------------------------------------------
add_phrase("测试短语", "ce4 shi4 duan3 yu3")
to_pinyin("测试短语", polyphone = TRUE)

## -----------------------------------------------------------------------------
to_varname(c("姓名", "年龄", "性别"))
to_varname("1开始")

## -----------------------------------------------------------------------------
to_slug("2026年报告")