R 在一个闪亮的应用程序中，用星星替换评级数字，但我选择了NAs

我想用闪亮的星星符号而不是评级数字来制作一张桌子，但我选择了NAs

有光泽的图书馆

nba <- data.frame(
  player = c("James", "Durant", "Curry", "Harden", "Paul", "Wade"), 
  team = c("CLEOH", "GSWOAK", "GSWOAK", "HOUTX", "HOUTX", "CLEOH"),
  day1points = c("25","23","30","41","26","20"), 
  day2points = c("24","25","33","45","26","23"),
  rating=c("1","2","3","4","5","1")
)
strrep("\U2605", as.numeric(nba$rating))
ui <- navbarPage(
  title="SADDAS",
  sidebarLayout(
    sidebarPanel(uiOutput("var1_select")),
    mainPanel(tableOutput("reportOutput"))
  ))

server <- function(input, output) {
  output$var1_select<-renderUI({
    selectInput("ind_var_select","Select Names", choices =c(as.character(nba[,1] )),multiple = TRUE,selected = nba[1,1])
  })
  output$reportOutput = renderTable({
    nba[,1:5][nba$player %in% input$ind_var_select,]
  },
  options = list(scrollX = TRUE)
  )
}

shinyApp(ui, server)

一个选择是strep

或者如果我们需要一颗白星

strrep("\U2606", nba$rating)
#[1] "☆"     "☆☆"    "☆☆☆"   "☆☆☆☆"  "☆☆☆☆☆" "☆"    

---

我想这会取代*但我想要真正的明星。我想它需要某种javascript。@MakisKasvikis你可以寻找真正开始时的utf值，然后用像这样的东西替换*你的意思是+1F31F@MakisKasvikis我更新了一些星星。你能检查一下吗？我做了，但我接受带UTF代码的NAs。我猜是编码

strrep("\U2605", nba$rating)
#[1] "★"     "★★"    "★★★"   "★★★★"  "★★★★★" "★"    

strrep("\U2606", nba$rating)
#[1] "☆"     "☆☆"    "☆☆☆"   "☆☆☆☆"  "☆☆☆☆☆" "☆"