Я сталкивался с некоторыми открытыми проблемами, когда искал способ сделать вертикальный ползунок в приложениях R Shiny, чтобы разместить рядом с одним из моих графиков, чтобы пользователь мог "перемещать горизонтальную линию" на графике с помощью ползунок, который следует за тем же диапазоном, что и ось y графика.
Мне удалось повернуть ползунок вертикально, но он все еще хочет, чтобы мышь перетаскивали в горизонтальное положение. Кто-нибудь знает, как атаковать это с помощью CSS, чтобы повернуть действие перетаскивания?
library(shiny)
ui <- fluidPage(
fluidRow(
column(3,
sliderInput(inputId = 'myslider1', label = 'Change vertical', min = -5, max = 6.3, step = 0.1, value = -6)
),
column(3,
sliderInput(inputId = 'myslider2', label = 'Change horizontal', min = -5, max = 6.3, step = 0.1, value = 0)
), style = "margin-top:200px"
),
tags$style(HTML(".js-irs-0 { transform: rotateZ(270deg)}")),
tags$style(HTML(".js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar {background: yellow}"))
)
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)