data <- 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 15:00:00"),
  end     = c(NA, NA, "2016-02-04", NA),
  editable = TRUE
)
timevis(data)

library(shiny)
library(timevis)

data <- 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 15:00:00"),
  end     = c(NA, NA, "2016-02-04", NA),
  editable = TRUE
)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      .vis-item .vis-item-overflow { overflow: visible; }
    "))
  ),
  timevisOutput('timeline')
)

server <- function(input, output, session) {
  output$timeline <- renderTimevis( timevis(data) )
}

shinyApp(ui, server)