fix symbols

DESCRIPTION

@@ -11,7 +11,7 @@ Authors@R: c(
   person("Jemma", "Stachelek", role = c("ctb"), comment = c(ORCID = "0000-0002-5924-2464")))
 Maintainer: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
 Depends: R (>= 3.3.0), methods
-Imports: R6, httr, jsonlite, XML, xml2, keyring, tools, atom4R
+Imports: R6, httr, jsonlite, XML, xml2, keyring, tools, atom4R, utf8
 Suggests: testthat, parallel, knitr, markdown
 Description: Provides an Interface to 'Zenodo' (<https://zenodo.org>) REST API, 
   including management of depositions, attribution of DOIs by 'Zenodo' and 

NAMESPACE

@@ -19,3 +19,4 @@ import(xml2)
 importFrom(R6,R6Class)
 importFrom(tools,file_path_as_absolute)
 importFrom(tools,md5sum)
+importFrom(utf8,utf8_encode)

R/ZenodoRecord.R

@@ -1289,10 +1289,10 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
                 cols = c(download_cols, view_cols, volume_cols)
                 for(col in cols){
                   symbol = ""
-                  if(regexpr("views", col)>0) symbol = "○"
-                  if(regexpr("downloads", col)>0) symbol = "↓"
-                  if(regexpr("volume", col)>0) symbol = "■"
-                  cat(paste0("\n",paste(rep(" ", depth), collapse=""),"   ",symbol," ", col, " = ", fieldObj[,col]))
+                  if(regexpr("views", col)>0) symbol = "\U0001f441"
+                  if(regexpr("downloads", col)>0) symbol = "\U2193"
+                  if(regexpr("volume", col)>0) symbol = "\U25A0"
+                  cat(paste0("\n",paste(rep(" ", depth), collapse=""),"   ", utf8::utf8_encode(symbol)," ", col, " = ", fieldObj[,col]))
                 }
               }
             }else{

R/zen4R.R

@@ -13,6 +13,7 @@
 #' @importFrom tools file_path_as_absolute
 #' @importFrom tools md5sum
 #' @import atom4R
+#' @importFrom utf8 utf8_encode
 #' 
 #' @title Interface to 'Zenodo' REST API
 #' @description Provides an Interface to 'Zenodo' (<https://zenodo.org>) REST API,