傳遞函數參數在光澤ř

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)