閃亮的應用程序連接到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數據庫

回答

相關問題