В настоящее время у меня есть два ползунка, которые я использую для реактивного построения точек на графике в блестящем. Ползунки называются «х» и «у». Затем я передаю эти значения в оптимизатор, который дает мне решение. На моих ползунках "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)