Nothing
observe({
if (!is.null(json())) {
shinyjs::show("div_code"); shinyjs::hide("div_code_hidden")
shinyjs::show("div_export"); shinyjs::hide("div_export_hidden")
if (start_with_hier == FALSE) {
shinyjs::show("btn_reset")
} else {
shinyjs::hide("btn_reset")
}
} else {
shinyjs::hide("div_code"); shinyjs::show("div_code_hidden")
shinyjs::hide("div_export"); shinyjs::show("div_export_hidden")
}
})
observe({
if (modify_mode() == TRUE) {
shinyjs::show("sidebar_modify"); shinyjs::show("div_modify")
shinyjs::hide("sidebar_create"); shinyjs::hide("div_create")
} else {
shinyjs::show("sidebar_create"); shinyjs::show("div_create")
shinyjs::hide("sidebar_modify"); shinyjs::hide("div_modify")
}
})
# write code to file
output$btn_dl_code <- shiny::downloadHandler(
filename = function() {
paste0("rcode_hier_", format(Sys.Date(), "%d%m%Y"), ".R")
},
content = function(con) {
cat(code_complete(), sep = "\n", file = con)
}
)
output$btn_export_dl <- shiny::downloadHandler(
filename = function() {
ff <- input$export_format
if (ff == "data.frame") {
ext <- ".csv"
} else if (ff == "argus") {
ext <- ".hrc"
} else if (ff == "code") {
ext <- ".R"
} else if (ff == "json") {
ext <- ".json"
} else if (ff %in% c("node", "sdc")) {
ext <- ".rds"
}
paste0(
"hier_", input$export_format, "_",
format(Sys.Date(), "%d%m%Y"), ext
)
},
content = function(con) {
dd <- hier_import(inp = json(), root = overall_level_name())
if (input$export_format == "node") {
dd <- saveRDS(object = dd, file = con)
} else {
dd <- hier_export(dd, as = input$export_format, path = con)
}
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.