add* / set* / center* etc dont work in shiny modules

[trafficonese]

It seems necessary to include the module id for the functions to work. Could they do that automagically?

library(shiny)
library(timevis)

## Data ################
dataBasic <- data.frame(
  id = 1:4,
  content = c("Item one", "Item two" ,"Ranged item", "Item four"),
  start   = c("2016-01-10", "2016-01-11", "2016-01-20", "2016-02-14"),
  end    = c(NA, NA, "2016-02-04", NA)
)

## Module ####################
timevis_ui <- function(id) {
  ns <- NS(id)
  tagList(
    timevisOutput(ns("timevisui")),
    verbatimTextOutput(ns("timevissel")),
    actionButton(ns("setwindow"), label = "Set Window")
  )
}
timevis_server <- function(input, output, session) {
  output$timevisui <- renderTimevis({
    timevis(data = dataBasic)
  })
  observeEvent(input$timevisui_selected, {
    print("Center object to "); print(input$timevisui_selected)
    ## Works
    # centerItem("tmv-timevisui", input$timevisui_selected)
    ## Doesnt work
    centerItem("timevisui", input$timevisui_selected)
  })
  observeEvent(input$setwindow, {
    print("Set Window")
    ## Works
    # setWindow("tmv-timevisui", "2016-01-10", "2016-05-10")
    ## Doesnt work
    setWindow("timevisui", "2016-01-10", "2016-05-10")
  })
}

## Shiny ###########################
ui <- fluidPage(timevis_ui("tmv"))
server <- function(input, output, session) {callModule(timevis_server,  "tmv")}
shinyApp(ui, server)

[daattali]

Could you try the latest github version and verify that it works as you expect now?

[trafficonese]

yes, its working. Thanks for the quick fix!