1
我正在创建一个Shiny应用程序,该应用程序从两个输入开始创建一个有序列表。该列表旨在根据它们的关系来排列数据库对象。如果语句在Shiny中不起作用
由于我确定了可能的输入,我插入了一些if语句,但这不起作用(我得到的结果是整个数据集而不是我选择的部分)。
我有三个主要dataframes工作:
- 环境(ENVNAME,A1,A2,A3为列),这个想法是,我需要完成完整的架构名称加上环境和ENV取决于区域的前缀更改
- 关系:所有父子关系的列表 -Schemas:所有模式名称的列表,分为不同的区域,第1部分和第2部分允许构建全名。
编辑:我更新了代码。请注意,我已经使用了运行序列作为反应部分的输出尝试,但我得到了闪亮的应用,而不是表这个错误:
'data' must be 2-dimensional (e.g. data frame or matrix)
代码如下
library(shiny)
library(shinydashboard)
library(dplyr)
ui <- shinyUI(pageWithSidebar(
headerPanel("Run Order List"),
sidebarPanel(
#declare 2 text inputs and submit button
selectInput("EnvName", "Environment:", c("Env")),
selectInput("Area", "Area:", c("A1", "A2","A3")),
actionButton(
inputId = "submit_loc",
label = "Submit")
),
mainPanel(
DT::dataTableOutput("RunOrder")
)
))
##
server <- shinyServer(function(input, output, session) {
observeEvent(
eventExpr = input[["submit_loc"]],
handlerExpr = {
input$EnvName
input$Area
#Loading the data
Relationships <- read.csv("myfile", header = TRUE, sep = ";")
Environments <- read.csv("myfile2", header = TRUE, sep = ";")
Schemas <- read.csv("myfile3", header = TRUE, sep = ";")
##CreatingListofSchemas
out <- reactive({
if (input$Area == "A1")
{
Environments <-subset(Environments, EnvName == input$EnvName)
Relevant_schemas <- subset(Schemas, Area == "A1")
Relevant_schemas $FullName <- paste(Relevant_schemas $Part1,Environment$A1,Relevant_schemas$Part2, sep="")
}
else if(input$Area == "A2"){
Environments <-subset(Environments, EnvName == input$EnvName)
Relevant_schemas <- subset(Schemas, Area == "A2")
Relevant_schemas$FullName <- paste(Environment$A2,Relevant_schemas$Part1, sep="")
}
else{
Environments <-subset(Environments, EnvName == input$EnvName)
Relevant_schemas <- subset(Schemas, Area == "A3")
Relevant_schemas $FullName <- paste(Relevant_schemas$Part1,Environment$A3,Csa_schemas$Part2, sep="")}
return(Relevant_schemas$FullName)
})
#Selecting environment
Relationships <- subset(Relationships, grepl(paste(Relevant_schemas$FullName, collapse = "|"), Relationships$ParentDB))
Level1Tables <- subset(Relationships, select = c(Parent), !(Parent %in% c(Child)))
Level1Tables <- unique(Level1Tables)
colnames(Level1Tables)<- "tables"
Level1Tables$Level <- 1
RunOrder <- Level1Tables
RemainingTables <- anti_join(AllTables, RunOrder, by = NULL, copy = TRUE)}
output$RunOrder = DT::renderDataTable({
RunOrder
})
})
})
##
shinyApp(ui = ui, server = server)
下面小编重复的例子(固定和当前工作)。然而,该应用程序仍然没有响应输入:
ParentDB <- c('s1A1p1', 'A2', 'A3')
ParentTable <- c('Tab1', 'Tab2', 'Tab3')
Relationships <- data.frame(ParentDB, ParentTable)
EnvName <- c("Env")
A1 <- c('A1')
A2 <- c('A2')
A3 <- c('A3')
Environments <- data.frame(EnvName, A1,A2, A3)
Part1 <- c('s1', 's2','s3')
Part2 <- c('p1', 'p2','p3')
Area <- c('A1','A2', 'A3')
SchemaList <- data.frame(Part1,Part2,Area)
Schemas <- SchemaList
Area <- "A1"
if(Area =="A1")
{
Environments <-subset(Environments, EnvName == "Env")
SchemaList <- subset(Schemas, Area == "A1")
SchemaList$FullName <- paste(SchemaList$Part1,Environments$A1,SchemaList$Part2, sep="")
} else if(Area == "A2")
{
Environments <-subset(Environments, EnvName == "Env")
SchemaList <- subset(Schemas, Area == "A2")
SchemaList$FullName <- paste(Environments$A2,SchemaList$Part1, sep="")
} else {
Environments <-subset(Environments, EnvName == "Env")
SchemaList <- subset(Schemas, Area == "A3")
SchemaList$FullName <- paste(SchemaList$Part1,Environments$A3,SchemaList$Part2, sep="")}
#Selecting environment
Relationships <- subset(Relationships, grepl(paste(SchemaList$FullName, collapse = "|"), Relationships$ParentDB))
你的大部分代码的细节更新的代码的有关部分是不相关的实际问题。如果你可以制作一个重点放在*最小*的[mcve],这将会很有帮助。 –
在您的代码中定义了“RunOrder”在哪里? (我的意思是在服务器上)。 '无功'输出'出' – akrun
@akrun我现在已经在RunOrder上添加了该部分并编辑了该部分。 – Barbara