count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "AED") ``` ] .panel2-the_chunk-replace[
price
DH49.95
DH17.95
DH1.39
DH65,100.00
DH1,325.81
DH13.26
NA
DH0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "AFN") ``` ] .panel2-the_chunk-replace[
price
؋49.95
؋17.95
؋1.39
؋65,100.00
؋1,325.81
؋13.26
NA
؋0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "BAM") ``` ] .panel2-the_chunk-replace[
price
KM49.95
KM17.95
KM1.39
KM65,100.00
KM1,325.81
KM13.26
NA
KM0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "BBD") ``` ] .panel2-the_chunk-replace[
price
$49.95
$17.95
$1.39
$65,100.00
$1,325.81
$13.26
NA
$0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "BDT") ``` ] .panel2-the_chunk-replace[
price
৳49.95
৳17.95
৳1.39
৳65,100.00
৳1,325.81
৳13.26
NA
৳0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "BGN") ``` ] .panel2-the_chunk-replace[
price
лв49.95
лв17.95
лв1.39
лв65,100.00
лв1,325.81
лв13.26
NA
лв0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "BHD") ``` ] .panel2-the_chunk-replace[
price
BD49.950
BD17.950
BD1.390
BD65,100.000
BD1,325.810
BD13.255
NA
BD0.440
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "TMT") ``` ] .panel2-the_chunk-replace[
price
T49.95
T17.95
T1.39
T65,100.00
T1,325.81
T13.26
NA
T0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "TND") ``` ] .panel2-the_chunk-replace[
price
DT49.950
DT17.950
DT1.390
DT65,100.000
DT1,325.810
DT13.255
NA
DT0.440
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "TOP") ``` ] .panel2-the_chunk-replace[
price
T$49.95
T$17.95
T$1.39
T$65,100.00
T$1,325.81
T$13.26
NA
T$0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "USD") ``` ] .panel2-the_chunk-replace[
price
$49.95
$17.95
$1.39
$65,100.00
$1,325.81
$13.26
NA
$0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "USN") ``` ] .panel2-the_chunk-replace[
price
$49.95
$17.95
$1.39
$65,100.00
$1,325.81
$13.26
NA
$0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "USS") ``` ] .panel2-the_chunk-replace[
price
$49.95
$17.95
$1.39
$65,100.00
$1,325.81
$13.26
NA
$0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "UYI") ``` ] .panel2-the_chunk-replace[
price
UYI50
UYI18
UYI1
UYI65,100
UYI1,326
UYI13
NA
UYI0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "UYU") ``` ] .panel2-the_chunk-replace[
price
$U49.95
$U17.95
$U1.39
$U65,100.00
$U1,325.81
$U13.26
NA
$U0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "UZS") ``` ] .panel2-the_chunk-replace[
price
лв49.95
лв17.95
лв1.39
лв65,100.00
лв1,325.81
лв13.26
NA
лв0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "VEF") ``` ] .panel2-the_chunk-replace[
price
Bs.49.95
Bs.17.95
Bs.1.39
Bs.65,100.00
Bs.1,325.81
Bs.13.26
NA
Bs.0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "VND") ``` ] .panel2-the_chunk-replace[
price
₫50
₫18
₫1
₫65,100
₫1,326
₫13
NA
₫0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "VUV") ``` ] .panel2-the_chunk-replace[
price
VT50
VT18
VT1
VT65,100
VT1,326
VT13
NA
VT0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "XPD") ``` ] .panel2-the_chunk-replace[
price
Pd50
Pd18
Pd1
Pd65,100
Pd1,326
Pd13
NA
Pd0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "XPF") ``` ] .panel2-the_chunk-replace[
price
F50
F18
F1
F65,100
F1,326
F13
NA
F0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "XPT") ``` ] .panel2-the_chunk-replace[
price
Pt50
Pt18
Pt1
Pt65,100
Pt1,326
Pt13
NA
Pt0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "XSU") ``` ] .panel2-the_chunk-replace[
price
XSU50
XSU18
XSU1
XSU65,100
XSU1,326
XSU13
NA
XSU0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "XUA") ``` ] .panel2-the_chunk-replace[
price
XUA50
XUA18
XUA1
XUA65,100
XUA1,326
XUA13
NA
XUA0
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "YER") ``` ] .panel2-the_chunk-replace[
price
﷼49.95
﷼17.95
﷼1.39
﷼65,100.00
﷼1,325.81
﷼13.26
NA
﷼0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "ZAR") ``` ] .panel2-the_chunk-replace[
price
R49.95
R17.95
R1.39
R65,100.00
R1,325.81
R13.26
NA
R0.44
] --- count: false .panel1-the_chunk-replace[ ```r library(gt) example %>% .[1:8, 7] %>% gt() %>% fmt_currency(columns = vars(price), * currency = "ZMW") ``` ] .panel2-the_chunk-replace[
price
K49.95
K17.95
K1.39
K65,100.00
K1,325.81
K13.26
NA
K0.44
] <style> .panel1-the_chunk-replace { color: black; width: 65.3333333333333%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-replace { color: black; width: 32.6666666666667%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-the_chunk-replace { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 90%} @media print { .has-continuation { display: block; } } code.r.hljs.remark-code{ position: relative; overflow-x: hidden; } code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } </style>