使用 ShinyR 和数据表,我们可以创建交互式绘图。当用户在数据表中选择一行时,它会在图表中以特定的颜色和形状显示。当我们取消选择行时,点增益正常。 示例修改自 ( Shiny apps )。
此外,我们可以识别图表上的特定点(我们感兴趣)(使用nearPoints
)
我希望用户能够通过单击图表上的特定点来取消选择该行。一旦用户单击图表上的点,它将获得正常的外观。
但是,我找不到让它工作的函数。
新的 DT 库(DT 包)中有一个 proxy
和 selectRows
函数(但对于 Mac 不可用)。 Example
另一种选择是在回调
中编写并选择javascript
代码,但是我在该领域的知识有限。
感谢任何意见和建议。
用户界面
library(shiny)
library(DT)
fluidPage(
title = 'Select Table Rows',
fluidRow(
column(6, DT::dataTableOutput('x1')),
column(6, plotOutput('x2', height = 500,click = "plot_click"),
verbatimTextOutput("info"))
)
)
服务器
shinyServer(function(input, output, session) {
output$x1 = DT::renderDataTable(cars, server = FALSE)
# highlight selected rows in the scatterplot
output$x2 = renderPlot({
s = input$x1_rows_selected
par(mar = c(4, 4, 1, .1))
plot(cars)
if (length(s)) points(cars[s, , drop = FALSE], pch = 19, cex = 2)
})
output$info <- renderPrint({
paste("Selected point row.name - ", row.names(nearPoints(cars, input$plot_click, xvar = "speed", yvar = "dist")), sep="")
})
})
最佳答案
使用新版本的DT
,它可以与proxy
完美配合
proxy = dataTableProxy('x1')
observeEvent(input$plot_click, {
removeRow <- as.numeric(row.names(nearPoints(cars, input$plot_click, xvar = "speed", yvar = "dist")))
selectRows(proxy, input$x1_rows_selected[!input$x1_rows_selected %in% removeRow])
})
关于javascript - Shiny r : clear selected rows from data table by click on plot,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34160990/