3
ggplot에서 변환 된 약 10 개의 플롯 그래프가 10 초마다 반짝이는 내 반짝이는 앱에 있습니다. Plotly는 새로 고침을해도 문제가 없지만 ERROR가 너무 많은 열린 장치를 보여줍니다.플롯 그래프에서 ERROR가 너무 많은 열린 장치를 반짝임으로 표시합니다.
server.R
pullData는 데이터베이스에서 데이터를 끌어 함수 :
내 코드는 다음과 같다 (단 하나의 그래프를 표시하는 단락)이다.
library(lubridate)
library(shinyjs)
library(ggplot2)
library(plotly)
server <- function(input, output, session) {
d <- reactive({
invalidateLater(10000, session)
pullData() %>% filter(!is.na(time))
})
output$Run <- renderPlotly({
pdf(NULL)
ggplotly(ggplot(d(), aes(x = as.POSIXlt(time) , y = mile)) +
geom_point() +
theme_bw() +
xlab('Time') +
ylab('mile'))
})
ui.R
library(shinydashboard)
library(shiny)
library(shinyjs)
library(plotly)
ui <- dashboardPage(
dashboardHeader(title = "Analytics DashBoard")
,skin = 'green'
,dashboardSidebar(
tags$head(
tags$style(HTML("
.sidebar { height: 90vh; overflow-y: auto; }
")
)
),
# sidebarSearchForm(label = "Search...", "searchText", "searchButton"),
sidebarMenu(
, menuItem("Real Time Graphs", tabName = "RealTimeG", icon = icon("cog"))
)
)
,dashboardBody(
tabItems(
,tabItem(
tabName = "RealTimeG"
,fluidRow(
box(
title = "total Run Time"
,plotlyOutput("Run")
, width = 6
)
)
)
))
문제가 무엇입니까? 어떻게 해결할 수 있을까요?
감사합니다. –