'How to truncate the encrypted value obtained using encrypt command from encryptr package in R

I have sample data as below:

|TimeStamp| |MAC| |ScannerID|

|23-05-2019 12:34||e6aa4f2224ee98e98||1.91421e+13|

I have used following code for encryption (Package used encryptr)

genkeys()
Sample_encrypt <- read_csv( "Sample_Data.csv") %>%
  select(TimeStamp, MAC, MeshliumID)
View(Sample_encrypt)
Sample_encrypt <- Sample_encrypt %>%
    encrypt(MAC)
View(Sample_encrypt)

After encryption of the MAC value, I have following result:

|TimeStamp| |MAC| |ScannerID|

23-05-2019 | 12:34 | |4df34a18198b69f49ec736718edd2ceddb2eb54c6cb7e2341e1efc39bc425b898929424838fb6e87a4d79dadda33abdef6ffc99554f7e141e587e6e7166b68a5c7878321f6b90d2d3245cd13c66e7d7ffa1f3d0c8e2bdade48a3904229a5553be3507a1c533903b9a874b23a8e506178e47e745a56b624a4fd1ab92da6b6ed4cabca6eed3c034736fb3c3eef2e62fd55db909a3309fec3ad2374536eeebfee08b236ad29911c12422d6aa665def10e7ec17a18e5989b32fec3d0eb9d14071b02ab9325f33f523e352a21c68e657d987d6188832181653d438d826c83251db8b4522d2976f68c4efbc4f3ce32c97f4c3fa30331fd8d9af477960ad959d8587779| |1.91421e+13|

How can I truncate this encrypted value?



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source