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

## ----echo=FALSE, results='asis'-----------------------------------------------
cat("[freelancer](https://www.freelancer.com/freelancers/china)")

## ----echo=FALSE, results='asis'-----------------------------------------------
part1 <- "ht"
part2 <- "tps://a.amap"
part3 <- ".com/jsapi/static/doc/index.html"
cat(sprintf('<a href="%s%s%s" target="_blank">API documentation</a>', part1, part2, part3))
#  cat("[API documentation](https://a.amap.com/jsapi/static/doc/index.html)")

## ----echo=FALSE, results='asis'-----------------------------------------------
part1 <- "ht"
part2 <- "tps://a.amap"
part3 <- ".com/Loca/static/loca-v2/doc/html/index.html"
cat(sprintf('<a href="%s%s%s" target="_blank">API documentation</a>', part1, part2, part3))
#   cat("[API documentation](https://a.amap.com/Loca/static/loca-v2/doc/html/index.html)")

## ----echo=FALSE, results='asis'-----------------------------------------------
# Build the URL by splitting the structure apart
part1 <- "ht"
part2 <- "tps://a.amap"
part3 <- ".com/jsapi/static/doc/index.html#controladdto"
cat(sprintf('<a href="%s%s%s" target="_blank">addTo</a>', part1, part2, part3))
#cat("[addTo](https://a.amap.com/jsapi/static/doc/index.html#controladdto)")