出于练习用R对于网页素材的解析，并且写一些有意思并且实用的脚本，就尝试着结合Windows下的bat可执行文件捣鼓了这么一个东西。

目录

1. 思路

当初本来想接着R中的shiny包直接做成一个Web Application，但由于搞不好会摊上一些麻烦，因此作罢。而用R语言进行下载的话，首先用户必须要安装了R环境才可以使用，对于初学者来说即使看着脚本代码也不知道如何使用为好。因此结合Windows环境，大概下述准备工作是最方便的。

1. 在电脑里安装R环境；
2. 配置Rscript到环境变量上；
3. 用一个bat脚本解决双击直接下载问题。

至于使用方法的话：

1. 在名为sticker_id.txt的文件里复制粘贴上想要的贴图的ID；
2. 把sticker_id.txt、download.bat、sticker_download.R三个文件放在同一个文件夹下；
3. 双击download.bat即可下载贴图。

2. 环境配置

2.1 安装R语言环境

非常简单，直接到R的官网网站 https://www.r-project.org/ ，然后根据Getting Started中的说明完成配置即可。

2.2 修改环境变量

在Windows的CMD下可以运行Rscript程序直接运行自己编写的R脚本，如果是安装的时候没有改变安装路径的话一般在C:\Program Files\R\R-3.5.1\bin的下面。如果不设置环境变量的话，就需要写一长串路径指定到Rscript.exe的位置十分不便。

Windows10的话可以通过到 控制面板\所有控制面板项\系统页面 中，然后点击左侧的 高级系统设置 弹出系统属性面板，然后点击 高级 标签后点击最下方的 环境变量 即可弹出环境变量面板。

接下来在下方的 系统变量 区域中找到名为Path的变量后点击编辑，在弹出的 编辑环境变量 的面板中点击 新建 ，并且输入自己电脑中的R所安装的位置下的bin路径后点击 确定 即可（例如C:\Program Files\R\R-3.5.1\bin）

完成上述步骤后基本就已经完成要做的准备工作了。

3. 准备代码

接下来分别往sticker_download.R中写入关键下载代码，然后往download.bat中写入脚本运行代码即可（现在想想，直接写bat脚本下载不就完了嘛搞这么多幺儿子干嘛😂不过我不会写bat）。

3.1 贴图下载R部分

由于使用到了stringr包，因此如果没有安装过的话下述代码会自动下载安装。将下面的代码保存到sticker_download.R里即可。

#### sticker_download.R ####

# Install and load package
if( !is.element("stringr", .packages(all.available = TRUE)) ) {
    install.packages("stringr")
}
library(stringr)

# Read ID and convert it to URL from txt file.
sticker_id <- readLines("sticker_id.txt", encoding = "UTF-8")
sticker_url <- paste0("https://store.line.me/stickershop/product/", sticker_id, "/ja")

for (x in 1:length(sticker_url)) {
  # Change the sticker url
  url <- sticker_url[x]
  # Fetch webpage source code
  page <- readLines(url, encoding = "UTF-8")
  
  # Extract sticker url
  prefix <-
    "https://stickershop.line-scdn.net/stickershop/v1/sticker/"
  suffix <- "/ANDROID/sticker.png"
  sticker <-
    str_extract_all(
      string = page,
      pattern = paste0(prefix, "\\d+", suffix),
      simplify = TRUE
    )
  sticker <- c(sticker[sticker[, 1] != "",])
  
  # Create directory
  dirName <- paste0("line_sticker_", sticker_id[x])
  dir.create(dirName)
  # Download all sticker into directory
  num <- 1
  for (i in sticker) {
    download.file(
      url = i,
      destfile = paste0(dirName, "//", num, ".gif"),
      mode = 'wb'
    )
    num <- num + 1
  }
}

3.2 可执行文件bat部分

新建一个txt文本文件然后写入下面一行代码，保存后修改文件名为download.bat即可。

Rscript sticker_download.R

3.3 下载贴图ID列表txt部分

新建一个名为sticker_id.txt的文本文档，填入贴图的ID即可，每一行一个ID然后保存。 例如，要下载JOJO的贴图，我们可以在商店中找到下面3个贴图包。

然后把ID这一列保存到sticker_id.txt即可。

3065
4506
6784

4. 运行

把sticker_id.txt、download.bat、sticker_download.R三个文件放在同一个文件夹下，双击download.bat即可下载贴图。