我正在使用gcloud(Google Compute Engine)创建一个实例。我正在使用自定义映像创建启动盘。这是我正在使用的代码:
library(shiny)
library(shinycssloaders)
ui <- fluidPage(
titlePanel("CSS loader test"),
sidebarLayout(
sidebarPanel(
selectInput("imageOptions", "Choose an image:", choices = list(option1="RStudio-Logo-Blue-Gradient.png", option2="RStudio-Logo-All-Gray.png")),
actionButton("getImage", "Show image:")
),
mainPanel(
withSpinner(uiOutput("logo"))
)
)
)
server <- function(input, output) {
url<-reactive(
paste0("https://www.rstudio.com/wp-content/uploads/2014/07/", input$imageOptions)
)
observeEvent(input$getImage,{
output$logo<-renderText({
URL<-isolate(url())
print(URL)
Sys.sleep(2)
c('<center><img src="', URL, '"width="50%" height="50%" align="middle"></center>')
})
})
}
# Run the application
shinyApp(ui = ui, server = server)
但是,当我登录实例时,我无法看到自定义图片中的数据。当我运行 gcloud compute instances create inst-name /
--async --create-disk image=my-custom-image,device-name=inst-name /
--machine-type n1-standard-16 --zone asia-east1-b --tags http-server,https-server
命令时,我可以看到自定义映像磁盘(sdb)以及创建的新10 GB磁盘(sda)。为什么会这样?我原本只期待使用自定义映像磁盘(事实上,当我选择自定义映像并使用控制台创建实例时会发生这种情况)
我在gcloud中尝试了不同的选项但是无法让它工作。
谢谢!