R闪亮的模块 - 悬停在ggvis图上的工具提示

Question

我开始使用闪亮的模块，但无法在 ggvis 图上使用悬停工具提示显示文本。当我编写没有模块的代码时，这不是问题。感谢您的任何想法。

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 和 server 函数似乎可以正常工作：

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)