Динамически отображать часть иконки - PullRequest
Новая
       26

Динамически отображать часть иконки

0 голосов
/ 28 сентября 2019

Меня интересует динамическое создание графики, которая состоит из нескольких значков рядом друг с другом в блестящем приложении.В одном сценарии у меня есть значение, которое контролируется входом ползунка, и я хочу визуализировать значение, показывая рядом значки Font Awesome рядом друг с другом, которые соответствуют проценту, что данное значение относительно максимально допустимого значения.

В настоящее время я могу динамически создавать вывод пользовательского интерфейса, который использует значения, предоставленные ползунком, и выглядит примерно так:
enter image description here Однако этот код просто округляет количество значковдо ближайшего целого числа. 

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    sliderInput(
      inputId = "slider",
      label = NULL,
      min = 0,
      max = 100,
      value = 50
    ),
    uiOutput("userGraphic")
  )
)

server <- function(input, output) { 

  observeEvent(input$slider, {
    num_people <- round((input$slider/100.0)*10)
    output$userGraphic <- renderUI({
      lapply(1:num_people, function(i) {
        column(width=1,icon('user-o'))
      })
    })  

  }
  )

}

shinyApp(ui, server)

Есть ли у кого-нибудь мысли о том, как я мог бы избежать округления и вместо этого отображать процентное значение значка (т. е. если ползунок на 75% полон отображает значки 7.5).

...