반짝이는 대화 형 플롯이 서버에서 클릭 입력을 찾을 수 없습니다.

Question

반짝이는 대화 형 플롯을 만들려고합니다. 원래 플롯을 클릭하면 별도의 fluidRow (다른 테이블/플롯)에서 클릭 한 점에 대한 정보를 표시하려고합니다. 나는 click input 변수가 "plot_click"이라고 불리는 나의 UI를 설정하기 위해 몇 가지 예제를 온라인으로 보냈다. 그러나, 내 서버에서이 입력을 찾을 수 없습니다 (서버에 입력 $를 입력하면 입력 변수 목록에 plot_click이 없습니다). 코드는 다음과 같습니다

shinyUI(fluidPage(


    # Application title 
    titlePanel("Test Project"), 

    sidebarLayout(
    sidebarPanel(
     selectInput("variable", "variable:", var_list), 
     selectInput("analysis_function", "Function", analy_fun_list)  ), 

    mainPanel(
     fluidRow(
     column(width = 4, 
       plotOutput("plot", height=350, click = clickOpts(id="plot_click") )  
       ) 
    ), 
     fluidRow(
     column(width = 6, 
       verbatimTextOutput("click_info")) 
    ) 

    ) 
) 

)) 

그리고 클릭 입력을 호출하는 서버 코드는 다음과 같습니다 :

output$click_info <- renderPrint({ 
    nearPoints(unlist(graph_react()[4]), input$plot_click, addDist=TRUE) 
}) 

강조하기 위해 찾을 수없는 마지막 줄에서 변수 "입력 $의 plot_click".

Answer 1

글쎄, 나는 희망을 갖고 당신에게 가깝다는 작은 예제를 만들었다. 그것이 어떻게 작동하는지 보여준다.

• 등재 일부 변수 (X, Y, Z), 일부 분석 함수 (SIN, COS, EXP)와
• 입력 변수에 기초하여 그들로부터 플롯을 제작
그들 데이터 그리드 gerated 귀하의 UI 기능에서 선택하십시오.

library(shiny) 
library(ggplot2) 

var_list <- c("x","y","z") 
analy_fun <- c("sin","cos","exp") 

u <- shinyUI(fluidPage(
    titlePanel("Test ClickInfo"), 
    sidebarLayout(
    sidebarPanel(
     selectInput("variable", "variable:", var_list), 
     selectInput("analy_fun", "Analytic Function:", analy_fun)), 
    mainPanel(
     fluidRow(
     column(width = 4,plotOutput("plot", height=350, click=clickOpts(id="plot_click")) 
    ), 
     fluidRow(
     column(width = 6, verbatimTextOutput("click_info")) 
)))))) 
s <- function(input, output) { 
    gendata <- reactive({ 
    df <- expand.grid(x=-4:4,y=-4:4,z=-4:4) 
    df$sin <- sin(df$x+df$y+df$z) 
    df$cos <- cos(df$x+df$y+df$z) 
    df$exp <- exp(df$x+df$y+df$z) 
    df 
    }) 
    output$plot <- renderPlot({ 
    ggplot(gendata()) + geom_point(aes_string(x=input$variable,y=input$analy_fun)) 
    }) 

    output$click_info <- renderText({ 
    sprintf(" %s = %.2f \n %s = %.2f ",input$variable, input$plot_click$x, 
             input$analy_fun, input$plot_click$y) 
    }) 
} 
shinyApp(u, s) 

그리고 여기 click_info와 결과 반짝 응용 프로그램의 스크린 샷은 다음과 같습니다 :

• 그런 다음

이 코드입니다 플롯에서 클릭 정보를 반향