#######################################
# Shiny interface for data tabs
#######################################
## show error message from filter dialog
output$ui_filter_error <- renderUI({
if (is.empty(r_info[["filter_error"]])) {
return()
}
helpText(r_info[["filter_error"]])
})
## data ui and tabs
## state is not available in global environment
## neither are the state_... functions
output$ui_data <- renderUI({
tagList(
sidebarLayout(
sidebarPanel(
wellPanel(
uiOutput("ui_datasets"),
conditionalPanel(
"input.tabs_data != 'Manage'",
checkboxInput("show_filter", "Filter data", value = state_init("show_filter", FALSE)),
conditionalPanel(
"input.show_filter == true",
returnTextAreaInput("data_filter",
label = "Data filter:",
value = state_init("data_filter"),
placeholder = "Provide a filter (e.g., price > 5000) and press return"
),
returnTextAreaInput("data_arrange",
label = "Data arrange (sort):",
value = state_init("data_arrange"),
placeholder = "Arrange (e.g., color, desc(price)) and press return"
),
returnTextAreaInput("data_rows",
label = "Data slice (rows):",
rows = 1,
value = state_init("data_rows"),
placeholder = "e.g., 1:50 and press return"
),
uiOutput("ui_filter_error")
)
)
),
conditionalPanel("input.tabs_data == 'Manage'", uiOutput("ui_Manage")),
conditionalPanel("input.tabs_data == 'View'", uiOutput("ui_View")),
conditionalPanel("input.tabs_data == 'Visualize'", uiOutput("ui_Visualize")),
conditionalPanel("input.tabs_data == 'Pivot'", uiOutput("ui_Pivotr")),
conditionalPanel("input.tabs_data == 'Explore'", uiOutput("ui_Explore")),
conditionalPanel("input.tabs_data == 'Transform'", uiOutput("ui_Transform")),
conditionalPanel("input.tabs_data == 'Combine'", uiOutput("ui_Combine"))
),
mainPanel(
tabsetPanel(
id = "tabs_data",
tabPanel(
"Manage",
conditionalPanel("input.dman_preview == 'preview'", h2("Data preview"), htmlOutput("man_example")),
conditionalPanel("input.dman_preview == 'str'", h2("Data structure"), verbatimTextOutput("man_str")),
# conditionalPanel("input.dman_preview == 'summary'", h2("Data summary"), htmlOutput("man_summary")),
conditionalPanel("input.dman_preview == 'summary'", h2("Data summary"), verbatimTextOutput("man_summary")),
conditionalPanel(
condition = "input.man_show_log == true",
h2("Data load and save commands"),
uiOutput("ui_man_log")
),
conditionalPanel("input.man_add_descr == false", uiOutput("man_descr_html")),
conditionalPanel("input.man_add_descr == true", uiOutput("man_descr_md"))
),
tabPanel(
"View",
download_link("dl_view_tab"),
DT::dataTableOutput("dataviewer")
),
tabPanel(
"Visualize",
download_link("dlp_visualize"),
plotOutput("visualize", width = "100%", height = "100%")
),
tabPanel(
"Pivot",
conditionalPanel(
"input.pvt_tab == true",
download_link("dl_pivot_tab"),
DT::dataTableOutput("pivotr")
),
conditionalPanel("input.pvt_chi2 == true", htmlOutput("pivotr_chi2")),
conditionalPanel(
"input.pvt_plot == true", br(), br(),
download_link("dlp_pivot"),
plotOutput("plot_pivot", width = "100%", height = "100%")
)
),
tabPanel(
"Explore",
download_link("dl_explore_tab"),
DT::dataTableOutput("explore")
),
tabPanel(
"Transform",
htmlOutput("transform_data"),
verbatimTextOutput("transform_summary"),
uiOutput("ui_tr_log")
),
tabPanel(
"Combine",
htmlOutput("cmb_data1"),
htmlOutput("cmb_data2"),
htmlOutput("cmb_possible"),
htmlOutput("cmb_data")
)
)
)
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.