mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
it works!
This commit is contained in:
parent
4c0a19f09f
commit
269658ef17
4 changed files with 19 additions and 13 deletions
|
@ -5,6 +5,6 @@ account: agdamsbo
|
|||
server: shinyapps.io
|
||||
hostUrl: https://api.shinyapps.io/v1
|
||||
appId: 13276335
|
||||
bundleId: 9334579
|
||||
bundleId: 9334619
|
||||
url: https://agdamsbo.shinyapps.io/webResearch/
|
||||
version: 1
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
# project.aid::merge_scripts(list.files("R/",full.names = TRUE),dest = here::here("app/functions.R"))
|
||||
# source(here::here("functions.R"))
|
||||
|
||||
source("https://raw.githubusercongittent.com/agdamsbo/webResearch/refs/heads/main/app/functions.R")
|
||||
source("https://raw.githubusercontent.com/agdamsbo/webResearch/refs/heads/main/app/functions.R")
|
||||
|
||||
library(readr)
|
||||
library(MASS)
|
||||
|
@ -17,6 +17,8 @@ library(assertthat)
|
|||
library(dplyr)
|
||||
library(quarto)
|
||||
library(here)
|
||||
library(broom)
|
||||
library(broom.helpers)
|
||||
|
||||
|
||||
server <- function(input, output, session) {
|
||||
|
@ -126,7 +128,9 @@ server <- function(input, output, session) {
|
|||
output$report <- downloadHandler(
|
||||
filename = "analyses.html",
|
||||
content = function(file) {
|
||||
v$list |> write_quarto(file = file,qmd.file = "www/analyses.qmd")
|
||||
v$list |>
|
||||
write_quarto(file = file,
|
||||
qmd.file = "www/analyses.qmd")
|
||||
}
|
||||
)
|
||||
|
||||
|
|
20
app/ui.R
20
app/ui.R
|
@ -104,16 +104,16 @@ ui <- bslib::page_sidebar(
|
|||
),
|
||||
actionButton("load", "Analyse", class = "btn-primary")
|
||||
)
|
||||
,
|
||||
|
||||
# Horizontal line ----
|
||||
tags$hr(),
|
||||
h4("Download results"),
|
||||
|
||||
# Button
|
||||
downloadButton(outputId="report",
|
||||
label= "Download",
|
||||
icon = shiny::icon("download"))
|
||||
# ,
|
||||
#
|
||||
# # Horizontal line ----
|
||||
# tags$hr(),
|
||||
# h4("Download results"),
|
||||
#
|
||||
# # Button
|
||||
# downloadButton(outputId="report",
|
||||
# label= "Download",
|
||||
# icon = shiny::icon("download"))
|
||||
),
|
||||
layout_columns(
|
||||
cards[[1]]
|
||||
|
|
|
@ -13,3 +13,5 @@ project.aid::deploy_shiny(
|
|||
name.token = "rsconnect_agdamsbo_token",
|
||||
name.secret = "rsconnect_agdamsbo_secret"
|
||||
)
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue