Hello Everyone,
I have written certain codes in RShiny app which works fine.
There are 3 tabs, "Z1", "Z2" and "Z3". Currently the sliderinput shows up
when I click all the 3 tabs.
I need to adjust this code so that sliderInput is only visible when i
click tab "Z1" and not for tabs "Z2" and "Z3".
Can anyone please suggest how to modify the codes in that regard?
the codes for ui.r and server.r are given below.
thanks for your help,
regards,
bhaskar
####################################################################################
#Codes for ui.r
library(shiny)
library(shinydashboard)
library(shinyjs)
fluidPage(
sidebarLayout(position = "left",
sidebarPanel(
sliderInput(inputId = "year",
label = "Years included",
min = 1990,
max = 2000,
value = c(1990, 2000),
sep = "",
step = 1),
column(width = 10, plotOutput("distPlot"))
),
mainPanel(
tabsetPanel(type = "pills",
position = "below",
tabPanel("Z1", plotOutput("trend")),
tabPanel("Z2", plotOutput("trend1")),
tabPanel("Z3", plotOutput("trend2"))
),
)
)
)
############################################################################################
#Codes for server.r
#library(ggthemes)
library(gapminder)
library(leaflet)
library(ggmap)
library(tidyverse)
library(lubridate)
library(fpp2)
library(zoo)
library(shinydashboard)
library(shinyjs)
library(ggpubr)
df7 = read_csv("data.csv")
df8 = read_csv("data1.csv")
function(input, output) {
theData = reactive({
df7 %>%
filter(year >= input$year[1], year <= input$year[2])
})
theData1 = reactive({df8})
output$trend = renderPlot
({
lp1 <- theData() %>%
gather(metric, value, x1) %>%
ggplot(aes(date, value, color = metric)) +
geom_line()
print(lp1)
})
output$trend1 = renderPlot
({
lp2 <- theData1() %>%
gather(metric, value, x2) %>%
ggplot(aes(date, value, color = metric)) +
geom_line()
print(lp2)
})
output$trend2 = renderPlot
({
lp3 <- theData1() %>%
gather(metric, value, x3) %>%
ggplot(aes(date, value, color = metric)) +
geom_line()
print(lp3)
})
}
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
