gogonzo
commented
7 months ago User require to disable or to remove all download buttons in the teal application.
Example app to demonstrate how difficult is to disable buttons in teal app.
library(teal.modules.general)
library(teal.widgets)
data <- teal_data()
data <- within(data, {
library(nestcolor)
ADSL <- rADSL
})
datanames <- c("ADSL")
datanames(data) <- datanames
join_keys(data) <- default_cdisc_join_keys[datanames]
app <- init(
data = data,
modules = modules(
teal.modules.general::tm_a_pca(
"PCA",
dat = data_extract_spec(
dataname = "ADSL",
select = select_spec(
choices = variable_choices(
data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")
),
selected = c("BMRKR1", "AGE"),
multiple = TRUE
),
filter = NULL
),
ggplot2_args = ggplot2_args(
labs = list(subtitle = "Plot generated by PCA Module")
)
)
)
)
app$ui <- shiny::tagAppendChild(
app$ui,
tags$head(
tags$style(HTML('
.simple_report_button[title="Download"] {
opacity: 0.5;
cursor: not-allowed;
color: #ccc;
}
')),
tags$script(HTML('
// this script triggers to late as buttons are inserted by shiny server
$(document).on("shiny:connected", function() {
var buttons = document.querySelectorAll(".simple_report_button");
console.log(buttons);
buttons.forEach(function(b) {
b.disabled = true;
})
});
'))
)
)
shinyApp(app$ui, app$server)
Included css rules don't disable buttons, they are just changing style of the button.
To disable button "for real" we need to modify html element directly with js script. Problem roots in the fact that initialization of the ui is delayed and inserted by server. There might be better event than "shiny:connected" to trigger script when every module is initialized.
averissimo
Feature description
When we work in a GxP environment most of the clinical data would be lying on the server and data is not shared between systems or downloaded from the server directly to desktop folders or even download them.
While working on teal module, have observed teal reporter have an option for downloading them to downloads folder directly, which would be against GxP policies. Is there any way to remove or disable them while launching shiny app.
Code of Conduct
Contribution Guidelines
Security Policy