如何在闪亮

Question

引用在ggvis情节单击点我想用一个点击点的值进行进一步的处理，但我不清楚如何引用数据

library(shiny) 
library(ggvis) 
library(dplyr) 

df <- data.frame(a=c(1,2),b=c(5,3)) 



runApp(list(
    ui = bootstrapPage(
    ggvisOutput("plot") 

), 

server = function(..., session) { 

# function to handle click 
getData = function(data,location,session){ 

if(is.null(data)) return(NULL) 

# This returns values to console 
print(glimpse(data)) 
# Observations: 1 
# Variables: 
# $ a (int) 2 
# $ b (int) 3 

} 

# create plot 
df %>% 
    ggvis(~a, ~b) %>% 
    layer_points() %>% 
    handle_click(getData) %>% 
    bind_shiny("plot") 

# further processing 

clickedData <- reactive({ 

# how do I reference the value 'a' e.g. 2 of the clicked point' 
}) 
} 
)) 

TIA

Answer 1

这里的一个可以打印data.frame的工作解决方案。你很近。

df <- data.frame(a = 1:5, b = 101:105) 

runApp(shinyApp(
    ui = fluidPage(
    ggvisOutput("ggvis") 
), 
    server = function(input, output, session) { 
    clickFunc <- function(data, location, session) { 
     cat(str(data)) 
    } 

    df %>% 
     ggvis(~ a, ~b) %>% 
     layer_points %>% 
     handle_click(clickFunc) %>% 
     bind_shiny("ggvis") 
    } 
)) 

编辑：
（声明：我从来没有使用过ggvis闪亮，直到5分钟前，所以也许这是不正确的做法，但这个工程）

下面介绍如何使用数据在你的UI

df <- data.frame(a = 1:5, b = 101:105) 

runApp(shinyApp(
    ui = fluidPage(
    div("a:", textOutput("aVal", inline = TRUE)), 
    div("b:", textOutput("bVal", inline = TRUE)), 
    ggvisOutput("ggvis") 
), 
    server = function(input, output, session) { 
    clickFunc <- function(data, location, session) { 
     session$output$aVal <- renderText({ data$a }) 
     session$output$bVal <- renderText({ data$b }) 
    } 

    df %>% 
     ggvis(~ a, ~b) %>% 
     layer_points %>% 
     handle_click(clickFunc) %>% 
     bind_shiny("ggvis") 
    } 
))