Timevis: заставить переменный текст появляться вне рамки

Question

Используя его пример кода:

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)

Его вывод при увеличении имени идет рядом с полем, тогда как, когда я запускаю его код, он пытается вписать все имя в рамку и, следовательно, RangedНапример, в поле «Ranged Item» предмет будет отображаться как «Ран», что очень раздражает, и я не могу понять, как его разместить!тогда как в его одном предмете предмет появится внутри и просто продолжит писать за пределами коробки.Любая помощь будет принята с благодарностью.

Answer 1

Это можно контролировать с помощью CSS .vis-item .vis-item-overflow { overflow: visible; }.

Если вы используете timevis для приложения Shiny, самый простой способ - добавить стили в заголовок.В качестве альтернативы вы также можете сохранить стиль в отдельном файле, обычно в каталоге www приложения Shiny.Это хорошо задокументировано.

Для вашего примера, вот как это будет работать:

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)