处理和优化R

Question

如果您运行下面的脚本，您将获得一个表示虹膜数据的数据表和一个范围滑块，该滑块在滑块中为您提供的值大于和等于您选择的前一个圆上的选定点。我想要一个逻辑，当左滑块节点保持在5，右滑块保持在7时，我想要显示数据＆＃34; =和5＆＃34;和＆＃34;＆lt;并且等于7＆＃34;。然而，这些值应该是动态的。对于滑块上的两个圆圈，是否有一种方法可以提供尺寸较小的三角形小部件。附加快照以供参考。谢谢，请帮助。

#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)

Answer 1

要在范围模式下访问sliderInput值，请使用input$range[1]访问第一个极端，input$range[2]访问第二个极端

#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({
    iris[iris$Sepal.Length >= input$range[1] & iris$Sepal.Length <= input$range[2],]
  }))
}
shinyApp(ui, server)