Let's say you want to host domains first.com
and second.com
.
Create folders for their files:
# Globals | |
repos <- 'https://cloud.r-project.org' | |
pkgdata <- available.packages(repos = repos) | |
pkgs <- row.names(pkgdata) | |
# On success | |
make_callback <- function(i, url){ | |
function(res){ | |
if(res$status == 200){ | |
buf <- rawConnection(res$content) |
-- Create a group | |
CREATE ROLE readaccess; | |
-- Grant access to existing tables | |
GRANT USAGE ON SCHEMA public TO readaccess; | |
GRANT SELECT ON ALL TABLES IN SCHEMA public TO readaccess; | |
-- Grant access to future tables | |
ALTER DEFAULT PRIVILEGES IN SCHEMA public GRANT SELECT ON TABLES TO readaccess; |
library(shiny) | |
shinyServer(function(input, output, session) { | |
# Partial example | |
output$meh <- renderPrint({ | |
print("Press enter or focusout to update --- ") | |
print(input$myTextInput ) |