R Блестящий с анимацией jQuery - PullRequest
Новая
       15

R Блестящий с анимацией jQuery

0 голосов
/ 03 сентября 2018

Привет всем, 

    ## app.R ##
library(shiny)
library(shinydashboard)
library(highcharter)
library(dplyr)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    div(id = "bla", box(width = 12,
      box(width = 6, highchartOutput("plot1")),
      box(width = 6, highchartOutput("plot2"))
    ))
  )
)

server <- function(input, output) { 
  output$plot1 <- renderHighchart({
      highchart() %>%
      hc_chart(type = "bar") %>%
      hc_add_series(mtcars$mpg)
  })

  output$plot2 <- renderHighchart({
    highchart() %>%
      hc_chart(type = "bar") %>%
      hc_add_series(mtcars$mpg)
  })
  }

shinyApp(ui, server)

Вот мой код: я хочу переместить элемент div из текущего окна. Я использовал div как обертку вокруг ящиков.

Это не работает: 

$("#bla").animate({left: "-150%"})

Это работает: 

$("#bla").children().animate({left: "-150%"})

Я не очень понимаю, почему я должен явно указывать дочерние элементы для анимации блоков, а не просто div для анимации. Кто-нибудь может мне это объяснить?

...