R Shiny模塊-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

不知道是否必須使用Module，但是將模塊移到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)