How can we disable few tabs such as collaborate and logo options in plotly because
End user would not use them anyway and leads to developer website which is nothing to do for them.
Please find the screenshot
How can we have select All in the selectInput option just like here
for facet column, it has None.
selectInput('facet_col', 'Facet Column', c(None = '.', nms))
Hard coding ifelse block is just consuming overhead
library(shiny)
library(plotly)
data(diamonds, package = "ggplot2")
nms <- names(diamonds)
ui <- fluidPage(
headerPanel("Diamonds Explorer"),
sidebarPanel(
sliderInput('sampleSize', 'Sample Size', min = 1, max = nrow(diamonds),
value = 1000, step = 500, round = 0),
selectInput('x', 'X', choices = nms, selected = "carat"),
selectInput('y', 'Y', choices = nms, selected = "price"),
selectInput('color', 'Color', choices = nms, selected = "clarity"),
selectInput('facet_row', 'Facet Row', c(None = '.', nms), selected = "clarity"),
selectInput('facet_col', 'Facet Column', c(None = '.', nms)),
sliderInput('plotHeight', 'Height of plot (in pixels)',
min = 100, max = 2000, value = 1000)
),
mainPanel(
plotlyOutput('trendPlot', height = "900px")
)
)
server <- function(input, output) {
#add reactive data information. Dataset = built in diamonds data
dataset <- reactive({
diamonds[sample(nrow(diamonds), input$sampleSize),]
})
output$trendPlot <- renderPlotly({
# build graph with ggplot syntax
p <- ggplot(dataset(), aes_string(x = input$x, y = input$y, color = input$color)) +
geom_point()
# if at least one facet column/row is specified, add it
facets <- paste(input$facet_row, '~', input$facet_col)
if (facets != '. ~ .') p <- p + facet_grid(facets)
ggplotly(p) %>%
layout(height = input$plotHeight, autosize=TRUE) %>%
layout(plot_bgcolor='rgb(255, 255, 255)') %>%
layout(paper_bgcolor='rgb(255, 255, 255)')
})
}
shinyApp(ui, server)