R光沢のあるモジュール - ggvisプロットのツールチップをホバー

Question

光沢のあるモジュールを使い始めていて、ggvisプロットにホバーツールチップを使ってテキストを表示できません。これは、モジュールなしでコードを書くときには問題ありません。任意のアイデアをありがとう。あなたはモジュールを使用していますが、uiとserver機能にモジュールを移動する必要があればわからない

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

plotModUI <- function(id){ 
     ns = NS(id) 
     tagList(
       selectInput(ns("group"), "Select Group", choices=c("Group A", "Group B"), selected="Group A"), 
       ggvisOutput("ggvisplot") 
     ) 
} 

plotMod <- function(input, output, session, data){ 
     groupDat <- reactive({ 
       data %>% filter(group==input$group) 
     }) 
     hoverText = function(x){ 
       paste0("(", format(x$xvar, digits=2), ", ", format(x$yvar, digits=2), ")") 
     } 
     observe({ 
       groupDat() %>% ggvis(~xvar, ~yvar) %>% layer_points() %>% 
         add_tooltip(hoverText, "hover") %>% bind_shiny("ggvisplot") 
     }) 
} 

ui <- fillPage(
     plotModUI("example") 
) 

server <- function(input, output, session){ 
     exdat = data.frame(xvar=runif(100), yvar=rnorm(100), group=c(rep("Group A", 50), rep("Group B", 50))) 
     callModule(plotMod, "example", exdat) 
} 

shinyApp(ui, server) 

Answer 1

が働いているように見える：提案のための

ui <- fillPage(
    selectInput("group", "Select Group", choices=c("Group A", "Group B"), selected="Group A"), 
    ggvisOutput("ggvisplot") 
) 

server <- function(input, output, session){ 
    exdat = data.frame(xvar=runif(100), yvar=rnorm(100), group=c(rep("Group A", 50), rep("Group B", 50))) 
    groupDat <- reactive({ 
     exdat %>% filter(group==input$group) 
    }) 
    hoverText = function(x){ 
     paste0("(", format(x$xvar, digits=2), ", ", format(x$yvar, digits=2), ")") 
    } 
    observe({ 
     groupDat() %>% ggvis(~xvar, ~yvar) %>% layer_points() %>% 
      add_tooltip(hoverText, "hover") %>% bind_shiny("ggvisplot") 
    }) 
} 

shinyApp(ui, server)