Nothing
SASdata_densityInfo=function(data="ec"){
drive_deauth()
temp <- tempfile(fileext = ".zip")
if(data=="ec"){
patch <- drive_download(
as_id("1AndDSIl5ZIvCXNu2B_EkBxbffCUAg6m_"), path = temp, overwrite = TRUE, options(googledrive_quiet = TRUE))
}
else if(data=="ph"){
patch <- drive_download(
as_id("13OQFLxb4SiH7Fc2Fbqwtjg0j8TldlRdr"), path = temp, overwrite = TRUE, options(googledrive_quiet = TRUE))
}
else if(data=="texture"){
patch <- drive_download(
as_id("1a2yhsGnoPRLEda0E7hVKSip9Z3eSdChW"), path = temp, overwrite = TRUE, options(googledrive_quiet = TRUE))
}
out <- unzip(temp, exdir = tempdir())
img=readPNG(out)
grid::grid.raster(img)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.