传递函数参数在光泽ř

Question

我试图作为参数传递一个简单的网络的节点值，以闪亮R.一个函数但是，我发现了这样的错误：

在rsqlite_send_query错误：没有这样的列：输入$ id

任何人都可以帮助解决这个问题吗？谢谢。

library(shiny) 
library(networkD3) 
ui <- shinyUI(fluidPage(
fluidRow(
    column(4, simpleNetworkOutput("simple")), 
    column(4, DT::dataTableOutput("table")) 
) 
)) 

server <- shinyServer(function(input, output, session) { 
    session$onSessionEnded(stopApp) 
    output$simple <- renderSimpleNetwork({ 
    sn<-simpleNetwork(df) 
    sn$x$options$clickAction = 'Shiny.onInputChange("id",d.name)' 
    sn 
}) 

output$table <- DT::renderDataTable(DT::datatable(get(funct(input$id)))) 

}) 

shinyApp(ui = ui, server = server) 

Answer 1

1. 拿出从sprintf命令deparse和substitute，和周围的值加单引号要匹配在SQL语句中要生成

2. 摆脱get的功能，因为你不是试图“获取”一个对象

例如....

library(shiny) 
library(networkD3) 
library(DT) 
library(sqldf) 

df <- read.csv(header = T, text = ' 
source,name,age,hair 
dad,Jon X,18,brown 
dad,Jon Y,22,blonde 
') 

funct <- 
    function (n) { 
    isp <- sprintf("Select df.age From df Where df.name='%s';", n) 
    isd <- sqldf::sqldf(isp) 
    return(isd) 
    } 

ui <- shinyUI(fluidPage(
    fluidRow(
    column(4, simpleNetworkOutput("simple")), 
    column(4, DT::dataTableOutput("table")) 
) 
)) 

server <- shinyServer(function(input, output, session) { 
    session$onSessionEnded(stopApp) 
    output$simple <- renderSimpleNetwork({ 
    sn<-simpleNetwork(df) 
    sn$x$options$clickAction = 'Shiny.onInputChange("id",d.name)' 
    sn 
    }) 

    output$table <- DT::renderDataTable(DT::datatable(funct(input$id))) 
}) 

shinyApp(ui = ui, server = server) 

但是，如果你想要的是显示给定选择相关的值，我强烈建议大幅降低了复杂性，这样的事情

library(shiny) 
library(networkD3) 

df <- read.csv(header = T, text = ' 
source,name,age,hair 
dad,Jon X,18,brown 
dad,Jon Y,22,blonde 
') 

ui <- shinyUI(fluidPage(
    fluidRow(
    column(4, simpleNetworkOutput("simple")), 
    column(4, textOutput("text")) 
) 
)) 

server <- shinyServer(function(input, output, session) { 
    session$onSessionEnded(stopApp) 
    output$simple <- renderSimpleNetwork({ 
    sn <- simpleNetwork(df) 
    sn$x$options$clickAction <- 'Shiny.onInputChange("id", d.name)' 
    sn 
    }) 

    output$text <- renderPrint({ df$age[df$name == input$id] }) 
}) 

shinyApp(ui = ui, server = server)