[ci] encode token in the same way as e-mail address for RHub (#3920)

* Update r_solaris.yml

* Update run_rhub_solaris_checks.R

* Update run_rhub_solaris_checks.R

* fix lint

.ci/run_rhub_solaris_checks.R

@@ -9,9 +9,9 @@ email <- c(
     150L, 147L, 145L, 146L, 158L, 145L, 140L, 151L, 137L, 156L, 146L, 159L, 140L, 137L, 141L, 146L,
     143L, 141L, 149L, 157L, 106L, 163L, 153L, 154L, 151L, 139L, 147L, 150L, 88L, 141L, 153L, 151L
 )
-rhub::validate_email(
-    email = intToUtf8(email - 42L)
-    , token = "181dd96184924f0aaea19d73f9ae7974"
+token <- c(
+    91L, 98L, 91L, 142L, 142L, 99L, 96L, 91L, 98L, 94L, 99L, 92L, 94L, 144L, 90L, 139L,
+    139L, 143L, 139L, 91L, 99L, 142L, 97L, 93L, 144L, 99L, 139L, 143L, 97L, 99L, 97L, 94L
 )
 
 if (Sys.info()["sysname"] == "Windows") {
@@ -19,12 +19,20 @@ if (Sys.info()["sysname"] == "Windows") {
 } else {
     null_file <- "/dev/null"
 }
+
 sink(file = null_file)
+rhub::validate_email(
+    email = intToUtf8(email - 42L)
+    , token = intToUtf8(token - 42L)
+)
+sink()
+
 checks_succeeded <- TRUE
 platforms <- c(
     "solaris-x86-patched"
     , "solaris-x86-patched-ods"
 )
+sink(file = null_file)
 for (platform in platforms) {
     res_object <- rhub::check(
         path = package_tarball

.github/workflows/r_solaris.yml

@@ -53,7 +53,7 @@ jobs:
           while IFS= read -r line; do
               platform=${line%@*}
               url=${line#*@}
-              body="${body}${platform}: ${url}\r\n"
+              body="${body}**${platform}**: ${url}\r\n"
           done < "$GITHUB_WORKSPACE/rhub_logs.txt" || true
           body="${body}Reports also have been sent to LightGBM public e-mail: http://www.yopmail.com/lightgbm_rhub_checks\r\n"
           body="${body}Status: ${{ job.status }}."