Question

我有一个生成图表和数据表的Shiny应用程序，图表上的y轴链接到表格列中的最大值，该列由某些用户输入过滤。我希望这个相同的值是sliderInput上的最大值，所以它是动态的，因为每次用户在下拉列表中选择其他内容时，值都会改变。

该表根据下拉列表进行过滤，表格中有一个名为“Price Index＆＃39;”的列。如果用户选择＆＃39;面包＆＃39;例如，我希望最大的sliderInput值根据“价格指数”的最大值进行更改。表中的列。

这是我的Shiny代码减去位于服务器功能之上的函数。

server <- function(input, output, session) {


  output$priceplot <- renderPlot(
    {
      Price_Score(input$s_ranks[1], input$s_ranks[2], input$s_index[1], input$s_index[2], input$subsec)
    }
  )

  output$table <- DT::renderDataTable(
    DT::datatable(
      pricing_data[pricing_data$section_lower == input$subsec]
    )
  )

  session$onSessionEnded(
    function() {
      stopApp()
    }
  )
  onSessionEnded = function(callback) {

    return(.closedCallbacks$register(callback))
  }
}

####
ui <- fluidPage(

  titlePanel("Price Score Optimisation"),
  fluidRow(
    column(3,
           wellPanel(
             h4("Filters"),
             sliderInput("s_index", "Select Price Index Values",
                         0, 350, c(0, 50), step = 10),

             sliderInput("s_ranks", "Select ranks", 0, 22000, value = c(1000, 15000)),

             selectInput(
               "subsec",
               "Subsections",
               choices = unique(as.character(pricing_data$section_lower)),
               selected = TRUE,
               multiple = FALSE,
               selectize = FALSE
             )
           )
    ),
    column(9,
           plotOutput("priceplot")
    )
  ),
  fluidRow(DT::dataTableOutput("table")
  )
)


shinyApp(ui = ui, server = server)

我在服务器功能中尝试了这个，但我在控制台中出错：

  observe({
    val <- max(DT::datatable(
      pricing_data[pricing_data$section_lower == input$subsec, .(`Price Index`)][1])
    )
    # Control the value, min, max, and step.
    # Step size is 2 when input value is even; 1 when value is odd.
    updateSliderInput(session, "s_index", 
                      min = 0, max = val+50, step = 10)
  })

错误为Warning: Error in max: invalid 'type' (list) of argument

非常感谢任何帮助。

Answer 1

我不确定是否存在另一个问题，我显然不能很好地了解您的数据，以了解这些问题：

DT::datatable(
  pricing_data[pricing_data$section_lower == input$subsec, .(`Price Index`)][1])

但是您获得的特定错误是因为无论上面的行返回似乎都是一个列表。 max功能不喜欢列表。例如，这两项工作都是：

max(1,2,3)
max(c(1,2,3))

但以下不工作：

max(list(1,2,3))

在这些情况下（如果您希望保持第一个代码块不变），使用unlist可能就足够了（就像这样，在这种情况下显然很愚蠢，也可以：max(unlist(list(1,2,3)))）：< / p>

val <- max(unlist(DT::datatable(
  pricing_data[pricing_data$section_lower == input$subsec, .(`Price Index`)][1])
))

希望这有帮助！

将max sliderInput值链接到表列中的最大值

1 个答案: