Добавление вертикальной пунктирной линии к блестящему слайдеру - PullRequest
0 голосов
/ 09 апреля 2020

В настоящее время у меня есть два ползунка, которые я использую для реактивного построения точек на графике в блестящем. Ползунки называются «х» и «у». Затем я передаю эти значения в оптимизатор, который дает мне решение. На моих ползунках "x" и "y" я хотел бы добавить вертикальную пунктирную линию и текст, который сообщает значения x и y оптимизированной точки. Примечание. Я не хочу, чтобы эта пунктирная линия могла перемещаться с пользовательского ввода. Цель этой строки - сообщить пользователю, насколько текущее решение достигает текущей цели. Я уже знаю, как реактивно обновить слайдер, поэтому я в основном просто ищу компонент aestheti c для добавления строки. Если добавление строки слишком сложно, я не возражаю, просто маркер, если передается предполагаемая информация.

Добавление строки к ползунку следующим образом

Упрощенная версия моего кода выглядит следующим образом.

library(shiny)
library(shinydashboard)
library(shinyjs)



ui <- fluidPage(

  shiny::sliderInput(inputId = 'x', 
                     label = "X Slider",
                     value = 0.9,
                     pre = paste("Goal x: "),
                     min = 0,
                     max = 1
  ),

  shiny::sliderInput(inputId = 'y', 
                     label = "Y Slider",
                     value = 0.5, 
                     pre = paste("Goal y: "),
                     min = 0,
                     max = 1
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)
...