feat: link to other package(playdoh, likert)

Close #101 Close #100
statgarten · Nov 18, 2023 · dff6bd8 · dff6bd8
1 parent b1186c2
commit dff6bd8
Show file tree

Hide file tree

Showing 3 changed files with 36 additions and 2 deletions.
diff --git 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
@@ -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
@@ -313,3 +313,8 @@ pre{
   border-color: #92BA92;;
 }
 
+/* External Link Button */
+#external > ul > li > ul {
+  padding-inline-start: 0;
+}
+}