【发布时间】：2017-02-11 15:45:31
【问题描述】：
我在发布这个 Shiny 应用时遇到了一些问题。对于我的问题，我认为 ui.R 无关紧要。这是server.R：
library(shiny)
library(RMySQL)
library(tidyverse)
library(colorspace)
library(ggplot2)
### CONNECT AND QUERY THE DATABASE
### uncomment the next line to reconnect to server & re-query the database
source("http://www.mvabl.com/Dashrock/MySQL_connect_query.R")
con <- dbConnect(MySQL(),
user = 'shiny_apps',
password = '####',
host = 'mysql.mvabl.com',
dbname='sandbox191')
qmain <- dbSendQuery(con, "SELECT * FROM sizes;")
sizes <- as.data.frame(dbFetch(qmain,n=-1),na.rm=TRUE)
### GENERATE GGPLOT
colors17 <- c("#9D8FAC","#8E96B0","#7F9BB0","#71A0AD","#67A5A7","#63A89E","#64AB94","#6BAC88","#77AD7B","#85AD70","#94AC66","#A4AA5F","#B5A75B","#C4A35B","#D39F5F","#DF9C67","#E99872")
colors6 <- c("#9D8FAC","#6FA1AC","#66AB8F","#8EAC6A","#C1A45A","#E99872")
sizes$Size_Cat <- factor(sizes$Size_Cat,
levels = c("n1_4","n5_9","n10_19",
"n20_49","n50_99","n100_249",
"n250_499","n500_999","n1000",
"n1000_1","n1000_2","n1000_3",
"n1000_4"))
sizes$market <- factor(sizes$market,
levels = c("NYC","LA","CHI","DC","SF","BOS"))
sizes <- sizes %>%
filter(market %in% c("NYC","SF"),
Size_Cat %in% c("n50_99","n100_249","n250_499"))
shinyServer(function(input, output) {
output$plot <- renderPlot({
g <- ggplot(sizes)
g + geom_bar(stat = "identity",
position = "dodge",
aes_string(x=input$x, y=input$y))
if (input$color != 'None')
g <- g + aes_string(color=input$color)
facets <- paste(input$facet_row, '~', input$facet_col)
if (facets != '. ~ .')
g <- g + facet_grid(facets)
g <- g + scale_fill_manual (values=colors17)
g <- g + facet_wrap(~ input$facet_row)
g <- g + labs( y = "Number of Companies", title = "Market Structure")
g <- g + theme(strip.text.x = element_text(size = 8),
axis.text.x = element_text(angle=90, size=6))
if (input$jitter)
g <- g + geom_jitter()
if (input$smooth)
g <- g + geom_smooth()
print(g)
}, height=700)
})
dbHasCompleted(qmain)
dbClearResult(qmain)
dbDisconnect(con)
我得到的结果是“找不到对象‘大小’”
问题是，当我在本地运行 exact 相同的代码，但 没有 Shiny 部分时，我得到了预期的结果。这是代码：
library(RNeo4j)
library(tidyverse)
library(stringr)
library(MASS)
library(RColorBrewer)
library(colorspace)
### uncomment the next 2 lines to reconnect to server & re-query the database
setwd("~/Desktop/Dashrock/")
source("http://www.mvabl.com/Dashrock/MySQL_connect_query.R")
colors17 <- c("#9D8FAC","#8E96B0","#7F9BB0","#71A0AD","#67A5A7","#63A89E","#64AB94","#6BAC88","#77AD7B","#85AD70","#94AC66","#A4AA5F","#B5A75B","#C4A35B","#D39F5F","#DF9C67","#E99872")
colors6 <- c("#9D8FAC","#6FA1AC","#66AB8F","#8EAC6A","#C1A45A","#E99872")
sizes$Size_Cat <- factor(sizes$Size_Cat,
levels = c("n1_4","n5_9","n10_19",
"n20_49","n50_99","n100_249",
"n250_499","n500_999","n1000",
"n1000_1","n1000_2","n1000_3",
"n1000_4"))
sizes$market <- factor(sizes$market,
levels = c("NYC","LA","CHI","DC","SF","BOS"))
sizes <- sizes %>%
filter(market %in% c("NYC","SF"),
Size_Cat %in% c("n50_99","n100_249","n250_499"))
g <- ggplot(sizes)
g + geom_bar(stat = "identity",
position = "dodge",
aes(x = market,
y = firms,
fill = industry),
color = "grey") +
scale_fill_manual (values=colors17) +
facet_wrap(~ Size_Cat) +
labs( y = "Number of Companies", title = "Market Structure") +
theme(strip.text.x = element_text(size = 8),
axis.text.x = element_text(angle=90, size=6))
“连接”源文件可在网络上公开查看 http://www.mvabl.com/Dashrock/MySQL_connect_query.R（正是上面代码块中的 URL），但我确实散列了 PW，所以这是不可执行的。 （我不知道如何屏蔽密码以访问我的数据库。）
最后，在我的两个第三方 MySQL 客户端（Sequel Pro 和 MySQL Workbench）中，sizes 表显示没有问题。
谁能发现问题？或者，更好的是，告诉我如何自己诊断？
谢谢
【问题讨论】：
-
错误信息是否显示错误发生在哪一行？
-
没有。它只是在带有该错误消息的浏览器选项卡中打开。而在 RStudio 中，根本没有错误信息。我尝试在不同的地方添加一行
test1 <- "PASSED"，看看是否能找到代码出错的地方。 （我不知道 R 中的任何跟踪错误函数）。这没有任何帮助。 -
看看shiny.rstudio.com/articles/debugging.html 是否有帮助。如果您发布 ui 代码也可能会有所帮助
标签： r shiny shiny-server rmysql