Если вы запустите сценарий ниже, вы получите таблицу данных, представляющую данные радужной оболочки, и ползунок диапазона, который дает вам значения, большие и равные выбранной точке на предыдущем круге вашего выбора в ползунке. Мне нужна такая логика, чтобы, когда левый узел ползунка сохраняется, скажем, на 5, а правый ползунок на 7, я хочу, чтобы данные отображались «= и выше 5» и «‹ и равны 7». Однако эти значения должны быть динамическими. Также для двух кругов на ползунках есть способ дать треугольные виджеты небольшого размера. Прикрепляю снимок для ознакомления. Спасибо и, пожалуйста, помогите.
#App
library(shiny)
library(shinydashboard)
library(dplyr)
library(scales)
library(DT)
#Declaring the UI
ui <- fluidPage(
titlePanel("Slider Test"),
fluidRow(
column(4,
sliderInput("range", "Select the Name Similarity %",
min = 4, max = 8,
value = c(min,max) ))
),
# Create a new row for the table.
fluidRow(
DT::dataTableOutput("table")
)
)
#Declaring the Server
server <- function(input, output) {
output$table <- DT::renderDataTable(DT::datatable({
Prod_total1 <- subset(iris, as.numeric(sub("%", "",
iris$Sepal.Length)) >= input$range)
Prod_total1
}))
}
shinyApp(ui, server)
