ich hoffe, das ich nochmals Hilfe finde. Ich bin mal wieder mit Shiny unterwegs und wollte eigentlich nur einen simplen x,y Plot programmieren. Leider zickt Shiny wieder rum und zeigt mir ein Fehler an, wo ich ziemlich verblüfft bin! Denn ich sehe ja das die betreffende Spalte vorhanden ist. Hier der Code:
Code: Alles auswählen
# original data
library(tidyverse)
library(plotly)
library(shiny)
library(readr)
# import data
Sample <- read_delim("Sample.txt", delim = "\t",
escape_double = FALSE, trim_ws = TRUE, show_col_types = FALSE)
# make the long version
df = Sample%>%
pivot_longer(
cols = Si: Ca,
names_to = "Element",
values_to = "Value")
ui <- fluidPage(
titlePanel(title = h2(" Shiny", align = "left")),
# left sidebar
sidebarLayout(position = "left", fluid = TRUE,
sidebarPanel(
titlePanel("Core Data"),
# Depth Plot
# input site
selectInput("sites", "Site",
choices = unique(df$Number), multiple = TRUE),
br(),
# choose a element
pickerInput(
inputId = "el",
label = "Select element",
choices = unique(df$Element),
selected = NULL,
multiple = FALSE,
options = pickerOptions(
actionsBox = TRUE,
title = "Please select a item",
header = "Elements")),
),
# end sidebar
# main panel
mainPanel(
# Depth Plot
tabPanel("Depth Plot",
plotlyOutput("dplot", height= 800, width = 1150)))
# end of main panel
))
server <- function(input, output, session){
## filter element
## Depth Plot
# fixed x value for depth plot
# depth plot
reactivedepth <- reactive({
df%>%
filter(Element %in% input$el%>%
Number %in% input$site)
})
output$dplot <- renderPlotly({
# draw the plot
ggplotly(
ggplot(reactivedepth (), x = Depth, y = Value, color = Element)) +
#geom_line() +
geom_point(colour=("grey60"))+
coord_flip()+
scale_x_reverse(limits = c(2.5, 0),
breaks = seq(2.5, 0, by = -0.1))+
# make the wraps
facet_wrap(. ~ Number, scales = 'free_x', nrow = 1)+
# select a method
stat_smooth(method=loess)
# design the graphic
theme_ipsum(base_size = 15) +
theme(axis.text.x=element_text(size=rel(0.8)))
})
}
shinyApp(ui, server)
Beim Auflösen des Shiny Codes bekomme ich folgende Fehlermeldung:
Eigentlich wollte ich noch ein Screenshot anhängen - geht leider nicht! :-/ Meine Frage lautet, wieso taucht dieser Fehler auf, wenn ich doch sehe, dass die betreffende Spalte vorhanden ist. Wahrscheinlich habe ich Tomaten auf den Augen!Problem while computing `..1 = Element %in% input$el %>% Number %in% input$site`.
Freue mich über jeden Lösungsvorschlag und vielen Dank vorab!