diff --git a/R/app_server.R b/R/app_server.R index 1269b01..d7068f9 100644 --- a/R/app_server.R +++ b/R/app_server.R @@ -596,10 +596,13 @@ app_server <- function(input, output, session) { haven::read_dta(file) }, rda = function(file) { - loadRData(file) + # loadRData(file) + + readRDS(file) }, rdata = function(file) { - loadRData(file) + # loadRData(file) + readRDS(file) }, xml = function(file) { xml_to_dataframe(file) diff --git a/R/app_ui.R b/R/app_ui.R index a0249aa..40889f6 100644 --- a/R/app_ui.R +++ b/R/app_ui.R @@ -62,6 +62,32 @@ app_ui <- function(request) { border-radius: 0; width : 100%;", onclick = "window.open('https://openstat.ai/app/basic/', '_blank')" + ), + actionButton( + inputId = "shiny.likert", + label = "shiny.likert", + icon = icon("chart-bar"), + width = "100%", + style = " + background: #F59B38; + color: #fff; + border: 0; + border-radius: 0; + width : 100%;", + onclick = "window.open('https://jhkim.shinyapps.io/shiny-likert/', '_blank')" + ), + actionButton( # playdoh + inputId = 'playdoh', + label = 'playdoh', + icon = icon('desktop'), + width = "100%", + style = " + background: #F59B38; + color: #fff; + border: 0; + border-radius: 0; + width : 100%;", + onclick = "window.open('https://github.com/statgarten/playdoh', '_blank')" ) ) ), diff --git a/inst/app/www/custom.css b/inst/app/www/custom.css index 84fbf25..8060cd3 100644 --- a/inst/app/www/custom.css +++ b/inst/app/www/custom.css @@ -313,3 +313,8 @@ pre{ border-color: #92BA92;; } +/* External Link Button */ +#external > ul > li > ul { + padding-inline-start: 0; +} +}