在Rshiny Datatable中显示印度卢比符号

Question

如何在Rshiny Datatable中显示卢比符号。'\u20b9531'。价值是531印度卢比。如何显示印度卢比符号

stri_unescape_unicode('\u20b9531')

Answer 1

目前尚不清楚OP想要如何显示。如果要创建新列，请使用

library(DT)
library(stringi)
datatable(data.frame(newcol =  stri_unescape_unicode('\u20b9531')))

输出

如果需要在闪亮的app中（在数据集'mpg'中创建一个新列）

library(ggplot2) 
library(shiny)
ui <- fluidPage(
  fluidRow(
    DT::dataTableOutput("tbl")
  )

)

server <- function(input, output) {      
  output$tbl <- DT::renderDataTable(DT::datatable(
       transform(mpg, newcol = stri_unescape_unicode('\u20b9531'))
    ))}

shinyApp(ui = ui, server = server)

输出