闪亮的应用程序连接到MySQL数据库

我在发布这个Shiny应用程序时遇到了一些麻烦。对于我的问题，我不认为ui.R是相关的。这里是server.R：闪亮的应用程序连接到MySQL数据库

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)

结果我得到的是“对象‘大小’找不到”

的事情是，当我在本地运行确切相同的代码，但没有 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网站（正好从代码块上述网址）上公开可见的，但我没有散出来的PW，所以这不是可执行文件。（我不知道如何屏蔽代码访问我的数据库的密码。）

最后，在我的第三方MySQL客户端（Sequel Pro & MySQL Workbench）中，sizes表显示没有问题。

任何人都可以发现问题吗？或者，甚至更好，告诉我如何自己诊断它？

Thx

来源

2016-10-03 Steve

更换

g <- ggplot(sizes)

是否错误信息显示在其行中的出错内容时发生？ –

不。它只是在带有该错误消息的浏览器选项卡中打开。而在RStudio中，根本没有错误信息。我试着在各个地方添加一行'test1 < - “PASSED”'来查看我是否能找到代码破解的地方。（我不知道R中的任何跟踪错误函数）。这没有提供任何帮助。 – Steve

看看这个http://shiny.rstudio.com/articles/debugging.html有帮助。此外，它可能是有帮助的，如果你张贴的UI代码 –

我以前有过类似的东西。试着用

g <- ggplot(sizes())

来源

2016-10-13 11:12:13 LuckySeedling

谢谢！这工作。我永远不会想到这一点。 – Steve

闪亮的应用程序连接到MySQL数据库

回答

相关问题