小编Ste*_*eve的帖子

我成功完成的事

• 我有一个在本地运行的闪亮应用程序。
• 我已经在 GCP VM 实例上设置了 Ubuntu 19 服务器
• 我已经安装了 RStudio Server & ShinyServer，并且 [EXTERNAL_IP]:3838 显示了标准的间歇泉应用程序
• 我已将我的代码复制粘贴到 [EXTERNAL_IP]:8787 的 RStudio IDE 中，它运行完美。

另外我有：

• 在同一项目中设置 Cloud Source Repository
• 已成功将我的 RStudio 本地实例连接到云存储库。

我想做什么（如果还不是很明显）

1. 我无法弄清楚如何将 RStudio/Shiny 连接到云存储库，以便它执行最新的推送。

2. 我如何将该 IP 分配给我的 DNS，以便它可以成为我（Google 托管）网站的一部分？

谢谢！

我在发布这个闪亮的应用程序时遇到了一些问题。对于我的问题，我认为 ui.R 不相关。这是服务器.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 %>% …