[英]Load RData into Shiny - data loaded in R workspace but not in Shiny, no errors produced
目标:我寻求将已在GitHub
载的数据集( .RData
格式)下载到Shiny
应用程序,并将该数据集用于各种绘图目的。
技术:我正在使用repmis
包中的source_data
函数将数据加载到我的R会话中。 这种加载发生在global.R
文件中,因此我确定所加载的任何数据都可用于在server.R
文件中绘制函数。
问题:如果我将所有函数从global.R
到server.R
但仅在shinyServer()
函数之前,我会在R工作区中加载数据。
但是, 没有数据是提供给Shiny
应用,产生没有错误,只是没有可供使用的绘制,甚至使用检查dim()
类似的问题:有一个类似的问题在这里 ,但我没有得到任何与此帮助-我,反正在加载数据Global.R
而不是server.R
或ui.R
。
另一个问题在这里 ,但是用户将数据读入反应性源。 我的数据不会更改,因此我将其加载到global.R
文件中。
#global.R
#-------------------- Loading Libraries ------------------------#
library(repmis)
library(lubridate)
library(dplyr)
library(xts)
library(dygraphs)
#-------------------- Loading required data from GitHub Repo -------------------------#
source_data('https://github.com/aliarsalankazmi/SHB_FB_App/raw/master/Data/shbPageData.RData')
#-------------------- Manipulating data for further processing -------------------------#
shb$created_date <- ymd(gsub('T.*', '', shb$created_time))
pageData <- tbl_df(shb) %>%
arrange(created_date)
byDay <- pageData %>%
group_by(created_date) %>%
select(created_date, comments_count, likes_count, shares_count) %>%
summarise(totalPosts = n(),
totalLikes = sum(likes_count),
totalComments = sum(comments_count),
totalShares = sum(shares_count)) %>%
arrange(created_date)
#-------------------- Manipulating data for an Overall View -------------------------#
byDayxts <- as.xts(x = as.matrix(as.data.frame(byDay[,colnames(byDay) != 'created_date'])), order.by = byDay$created_date)
#server.R
library(shiny)
library(dygraphs)
shinyServer(function(input, output, session) {
#---------------------- Plotting for a General Overview --------------------#
totalOverview <- renderDygraph({
byDayxts[, colnames(byDayxts) == 'totalPosts'] %>%
dygraph(main = 'Total Posts per Day Since Beginning', group = 'overall') %>%
dyAxis('x', drawGrid = FALSE) %>%
dySeries('totalPosts', label = 'Total Posts') %>%
dyOptions(includeZero = TRUE, gridLineColor = "lightblue", colors = '#d8b365') %>%
dyRangeSelector()
})
})
#ui.R
library(shiny)
library(dygraphs)
shinyUI(fluidPage(
titlePanel(h1("Facebook Data Analysis")),
tabsetPanel(
tabPanel("Graphs",
fluidRow(
column(width = 6, dygraphOutput("totalOverview"))
)
)
)
)
)
它应该是:
output$totalOverview <- renderDygraph({ ... })
不:
totalOverview <- renderDygraph({ ... })
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.