有光泽和updateSelectInput的问题
有光泽和updateSelectInput的问题
提问于 2017-04-20 05:04:44
我有下面的ui.R
library(shiny)
zones <- read.csv("sample_sites.csv", header = TRUE)
zonesnames <- levels(zones$pressure_zone_name)
availablelocations <- zones %>% filter(pressure_zone_name=="Allied Gardens") %>% select(location_description)
# Define UI for application
shinyUI(fluidPage(
# Application title
titlePanel("San Diego Drinking water sample sites"),
# Sidebar
sidebarLayout(
sidebarPanel(
selectInput("zones",
label = "Choose a zone to display",
choices = zonesnames),
selectInput("sampleLocation",
label = "Choose a location_description",
choices = availablelocations)
),
# Show a plot of the selected data
mainPanel(
plotOutput("zonesDataPlot")
)
)
))和下面的服务器。
library(shiny)
library(magrittr)
library(dplyr)
zoneData <- read.csv("sample_sites.csv", header = TRUE)
shinyServer(function(input,output,session) {
observe({
availablelocations <- zoneData %>%
filter(pressure_zone_name==input$zones) %>% select(location_description)
updateSelectInput(session, "sampleLocation", choices =
availablelocations)
})
output$zonesDataPlot <- renderPlot({
plotData <- subset(zones, pressure_zone_name==input$zones &
location_description==input$location_description)
})
})我还没有尝试实现这个计划，只是想让selectInput正常工作。
我的数据是
structure(list(site_ID = structure(c(135L, 153L, 121L, 5L, 131L,
123L, 40L, 140L, 139L, 104L, 141L, 2L, 48L, 64L, 120L, 137L,
65L, 61L, 81L, 47L, 42L, 70L, 33L, 25L, 31L, 73L, 78L, 55L, 129L,
103L, 38L, 74L, 69L, 109L, 16L, 145L, 6L, 7L, 17L, 132L, 82L,
83L, 60L, 106L, 75L, 113L, 77L, 28L, 37L, 29L, 86L, 63L, 94L,
41L, 20L, 84L, 85L, 136L, 80L, 138L, 26L, 24L, 1L, 87L, 67L,
66L, 88L, 35L, 107L, 13L, 149L, 8L, 9L, 93L, 133L, 14L, 108L,
27L, 105L, 143L, 144L, 146L, 147L, 95L, 102L, 71L, 68L, 148L,
157L, 72L, 57L, 18L, 142L, 111L, 152L, 116L, 119L, 3L, 4L, 15L,
151L, 43L, 56L, 10L, 11L, 30L, 154L, 90L, 92L, 89L, 32L, 19L,
96L, 100L, 101L, 114L, 126L, 79L, 156L, 21L, 97L, 49L, 54L, 22L,
12L, 34L, 150L, 134L, 110L, 23L, 99L, 36L, 58L, 50L, 53L, 155L,
51L, 52L, 59L, 39L, 122L, 76L, 62L, 125L, 112L, 44L, 124L, 117L,
45L, 115L, 98L, 128L, 91L, 130L, 46L, 127L, 118L), .Label = c("128 SYS",
"131 SYS", "132 SYS", "134A SYS", "135 SYS", "138A SYS", "140 SYS",
"144 SYS", "148 SYS", "150 SYS", "151A SYS", "152A SYS", "153 SYS",
"155 SYS", "171 SYS", "173 SYS", "174 SYS", "176 SYS", "177 SYS",
"179 SYS", "182 SYS", "184 SYS", "185 SYS", "200 SYS", "201 SYS",
"204A SYS", "205 SYS", "206 SYS", "207 SYS", "208A SYS", "209 SYS",
"210 SYS", "211 SYS", "212 SYS", "213 SYS", "214 SYS", "215 SYS",
"216 SYS", "218 SYS", "219 SYS", "221 SYS", "222A SYS", "223 SYS",
"224 SYS", "225 SYS", "226 SYS", "229 SYS", "230 SYS", "231 SYS",
"233 SYS", "234A SYS", "235 SYS", "236 SYS", "237 SYS", "239 SYS",
"240 SYS", "241SYS", "242 SYS", "243 SYS", "244 SYS", "245 SYS",
"246 SYS", "247A SYS", "248 SYS", "249A SYS", "250 SYS", "251 SYS",
"252A SYS", "253 SYS", "255 SYS", "256 SYS", "257 SYS", "258 SYS",
"259 SYS", "261 SYS", "262 SYS", "264 SYS", "265 SYS", "268 SYS",
"270A SYS", "273 SYS", "274 SYS", "275 SYS", "276A SYS", "277A SYS",
"278 SYS", "279 SYS", "280 SYS", "281 SYS", "282 SYS", "283 SYS",
"284 SYS", "285 SYS", "286 SYS", "287 SYS", "288 SYS", "289 SYS",
"290 SYS", "291 SYS", "294 SYS", "295 SYS", "299 SYS", "300 SYS",
"301 SYS", "302 SYS", "303A SYS", "304 SYS", "305 SYS", "306 SYS",
"307 SYS", "309 SYS", "313 SYS", "314 SYS ", "315A SYS", "316 SYS",
"317 SYS", "318A SYS", "319 SYS", "320 SYS", "321 SYS", "322 SYS",
"323 SYS", "324 SYS", "325 SYS", "326 SYS", "327 SYS", "328 SYS",
"329 SYS", "330 SYS", "331 SYS", "332 SYS", "333 SYS", "334 SYS",
"336 SYS", "338 SYS", "339 SYS", "341 SYS", "342 SYS", "43 SYS",
"44 SYS", "48 SYS", "49A SYS", "50A SYS", "52 SYS", "53 SYS",
"55A SYS", "57 SYS", "59 SYS", "60 SYS", "63A SYS", "64 SYS",
"65 SYS", "66 SYS", "67 SYS", "68 SYS", "77A SYS", "78A SYS"), class = "factor"),
pressure_zone_name = structure(c(48L, 49L, 101L, 88L, 88L,
38L, 45L, 82L, 83L, 120L, 46L, 72L, 92L, 33L, 73L, 73L, 34L,
29L, 6L, 19L, 128L, 74L, 87L, 20L, 1L, 85L, 131L, 7L, 25L,
30L, 41L, 100L, 54L, 86L, 129L, 130L, 130L, 130L, 130L, 130L,
96L, 59L, 28L, 98L, 102L, 115L, 126L, 22L, 10L, 24L, 8L,
32L, 50L, 51L, 52L, 53L, 80L, 81L, 91L, 77L, 9L, 116L, 117L,
17L, 42L, 40L, 47L, 61L, 15L, 2L, 3L, 3L, 3L, 4L, 5L, 62L,
94L, 37L, 97L, 68L, 68L, 68L, 68L, 95L, 99L, 76L, 43L, 39L,
39L, 78L, 21L, 63L, 64L, 64L, 65L, 65L, 66L, 75L, 75L, 75L,
56L, 56L, 16L, 93L, 93L, 27L, 12L, 13L, 71L, 60L, 105L, 57L,
57L, 57L, 57L, 118L, 67L, 55L, 127L, 127L, 89L, 90L, 14L,
119L, 103L, 103L, 114L, 69L, 107L, 113L, 109L, 125L, 23L,
18L, 18L, 79L, 79L, 84L, 26L, 44L, 121L, 104L, 31L, 106L,
11L, 110L, 110L, 111L, 124L, 35L, 36L, 122L, 58L, 112L, 108L,
123L, 70L), .Label = c("Allied Gardens", "Alvarado (100)",
"Alvarado (181)", "Alvarado (35)", "Alvarado (41)", "Archer",
"Arnold Hills", "Arroyo Sorrento", "Bay Terrace", "Bay View",
"Bernardo Heights", "Bernardo Oaks (51) ", "Bernardo Oaks(41)",
"Bernardo Trails", "Black Mtn Ranch", "Carbrillo Palisades",
"Carmel Country", "Carmel Mall", "Carmel Valley", "Carmel View",
"Carroll Ridge", "Catalina", "Climax", "College Canyon",
"Cornish Hill", "Country Casual", "Del Cerro", "Del Mar Hills",
"Del Mar Terrace", "Dennery Ranch", "Eagle Ridge", "El Camino",
"Floral Terrace", "Glidden", "Golf Course (11)", "Golf Course (5)",
"Hillsborough", "Imperial", "Kearny Mesa", "La Jolla Gardens",
"La Jolla Hermosa", "La Jolla Mesa Vista", "La Jolla Pacifica",
"La Jolla Soledad W", "La Jolla Sores", "La Jolla Towne",
"La Mirage", "Liberty Station", "Lower Del Mar Terrace",
"Lusk Park (16)", "Lusk Park (50)", "Lusk Park (81)", "Lusk Park(24)",
"Mar Villa", "Mercy High", "Mira Mesa", "Miramar ", "Miramar Boosted",
"Mission City", "Monte Verde", "Murphy Canyon", "Normal Heights",
"North City (33)", "North City (412)", "North City (92)",
"North City(48)", "North Village", "Northwest Mesa", "Oaks North",
"Otay Mesa", "OTAY MESA", "Otay Regulated", "Pacific Beach",
"Pacifica", "Paradise Mesa", "Paradise Mesa #2", "Paraduse Hills #1",
"Parkview", "Penasquitos", "Penasquitos Park VW", "Pinnacle Zone",
"Point Loma (20)", "Point Loma (37)", "Pomerado Park", "Prestwick Estates",
"Princess Del Sol", "Princess Gardens", "Principal Downtown",
"Rancho Bernardo (144)", "Rancho Bernardo (229) ", "Rancho Del Sol",
"Rancho Santa Fe", "Redwood Village", "Remington Hills",
"Ridgegate La Jolla", "Ridgegate Reduced", "Riviera Del Sol",
"Riviera Shores", "Robinhood Ridge", "Rodefer", "Rosecrans",
"San Andress", "San Carlos", "San Carlos Estates", "San Carlos Reduced",
"Santa Luz", "Scripps Eastview", "Scripps Hills", "Scripps Mesa",
"Scripps Ranch (229)", "Scripps Ranch (5)", "Scripps Ranch Boosted",
"Scripps Ranch North", "Scripps Valley", "So La Jolla Cliffs",
"So San Diego Resv", "So San Diego Resv (65)", "Soledad Muirlands",
"South Creek", "Stallion Crossing", "Stockwood", "Stonebridge",
"Sycamore Estates", "Sycamore Hills", "Tierrasanta Norte",
"Tierrasanta Sur", "Tierrasnanta", "Torrey Pines", "University Heights (22)",
"University Heights (418)", "Wabash Mesa"), class = "factor"),
pressure_zone_elevation = structure(c(8L, 9L, 10L, 11L, 11L,
12L, 13L, 14L, 14L, 15L, 16L, 16L, 17L, 18L, 19L, 19L, 20L,
21L, 22L, 22L, 22L, 23L, 24L, 25L, 26L, 26L, 26L, 27L, 28L,
29L, 30L, 30L, 31L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 33L,
34L, 35L, 36L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 42L, 42L,
42L, 42L, 42L, 42L, 42L, 42L, 43L, 44L, 44L, 44L, 45L, 45L,
46L, 46L, 46L, 47L, 48L, 48L, 48L, 48L, 48L, 48L, 48L, 49L,
50L, 50L, 51L, 51L, 51L, 51L, 52L, 53L, 54L, 55L, 56L, 56L,
56L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 57L, 58L,
58L, 59L, 60L, 60L, 61L, 62L, 62L, 62L, 63L, 64L, 65L, 65L,
65L, 65L, 66L, 67L, 68L, 69L, 69L, 70L, 70L, 71L, 72L, 73L,
73L, 74L, 75L, 76L, 76L, 77L, 78L, 79L, 80L, 80L, 80L, 80L,
80L, 81L, 81L, 81L, 82L, 83L, 84L, 1L, 1L, 1L, 1L, 2L, 3L,
3L, 4L, 5L, 5L, 6L, 7L, 85L), .Label = c("1020", "1050",
"1130", "1135", "1150", "1200", "1250", "175", "196", "225",
"231", "240", "241", "260", "263", "270", "284", "295", "307",
"320", "328", "330", "340", "345", "346", "355", "358", "360",
"365", "370", "378", "390", "425", "430", "435", "440", "447",
"450", "462", "463", "468", "470", "472", "490", "495", "500",
"520", "536", "543", "550", "559", "575", "580", "590", "594",
"600", "610", "625", "635", "645", "656", "680", "685", "692",
"712", "725", "730", "750", "752", "793", "800", "815", "849",
"850", "865", "890", "892", "900", "910", "920", "925", "930",
"940", "950", "N/A"), class = "factor"), connections_count = c(228L,
195L, 237L, 1565L, 1565L, 8L, 498L, 3924L, 1126L, 46L, 1240L,
2426L, 156L, 208L, 8847L, 8847L, 28L, 248L, 32L, 1698L, 170L,
22L, 13L, 540L, 1199L, 34L, 162L, 48L, 31L, 178L, 3100L,
78L, 79L, 2150L, 1864L, 28905L, 28905L, 28905L, 28905L, 28905L,
44L, 122L, 396L, 4L, 134L, 35L, 292L, 4348L, 884L, 93L, 1220L,
1L, 262L, 83L, 3907L, 94L, 885L, 7L, 180L, 1863L, 195L, 423L,
423L, 245L, 261L, 450L, 61L, 29L, 167L, 4106L, 29438L, 29438L,
29438L, 541L, 1464L, 5254L, 251L, 442L, 123L, 33770L, 33770L,
33770L, 33770L, 67L, 221L, 49L, 458L, 4758L, 4758L, 484L,
31L, 98L, 3263L, 3263L, 9700L, 9700L, 320L, 13283L, 13283L,
13283L, 14681L, 14681L, 45L, 9276L, 9276L, 1257L, 2126L,
1824L, 1404L, 652L, 255L, 5834L, 7485L, 14261L, 4830L, 2020L,
205L, 53L, 1485L, 1485L, 3394L, 4557L, 1035L, 538L, 6365L,
6365L, 756L, 21L, 179L, 1850L, 46L, 503L, 1138L, 2379L, 2379L,
3158L, 3164L, 1954L, 162L, 504L, 28L, 603L, 78L, 33L, 1175L,
3723L, 3882L, 96L, 320L, 131L, 36L, 129L, 769L, 829L, 208L,
112L, NA), location_description = structure(c(55L, 156L,
50L, 112L, 21L, 64L, 117L, 157L, 57L, 29L, 124L, 126L, 122L,
51L, 131L, 44L, 84L, 22L, 125L, 123L, 60L, 73L, 90L, 47L,
67L, 96L, 48L, 40L, 93L, 76L, 80L, 61L, 25L, 27L, 149L, 52L,
62L, 66L, 58L, 26L, 133L, 143L, 23L, 34L, 155L, 98L, 5L,
6L, 114L, 78L, 113L, 101L, 120L, 77L, 24L, 75L, 110L, 14L,
148L, 56L, 54L, 2L, 129L, 7L, 81L, 92L, 87L, 65L, 32L, 79L,
106L, 121L, 154L, 135L, 82L, 118L, 72L, 46L, 68L, 53L, 139L,
74L, 134L, 150L, 119L, 43L, 145L, 137L, 83L, 111L, 102L,
104L, 136L, 63L, 127L, 20L, 19L, 70L, 132L, 86L, 8L, 95L,
59L, 107L, 71L, 115L, 147L, 45L, 141L, 89L, 116L, 18L, 130L,
17L, 10L, 1L, 38L, 103L, 146L, 85L, 128L, 152L, 42L, 16L,
99L, 151L, 105L, 41L, 11L, 9L, 140L, 69L, 91L, 15L, 37L,
144L, 31L, 39L, 100L, 49L, 12L, 88L, 94L, 97L, 13L, 3L, 142L,
109L, 4L, 28L, 30L, 33L, 153L, 108L, 138L, 35L, 36L), .Label = c(" Across from 5494 Soledad Rd ",
" Otay Mesa Rd/Beyer Blvd", "10054 Avenida Magnifica @ Public School",
"10314 Rue Chantemar", "10460 Viacha Dr; Sample Stanchion",
"1055 Catalina Blvd; @ Fire Station Sample Stanchion", "10885 Cloverhurst ",
"11168 Avenida Del Gato & Zapata", "11198 Ivy Hill Dr", "11305 Affinity Ct",
"11455 East Ridge Place", "11469 Stonecroft Terrace", "11602 Calle Paracho",
"11911 Carmel Creek Rd", "12119 World Trade Dr @ a Fire Station",
"12170 Springhurst Dr", "12195 Branicole St", "12350 Black Mountain Rd (Next the Rec Building)",
"12501 La Tortola Dr", "12608 Spindle Top Dr", "1277 G St",
"12935 Via Latina; Sample Stanchion", "13051 Portofino Dr; Sample Stanchion",
"13075 Hartfield Ave @ Del Mar Heights", "13200 Blk Caminito Mar Villa",
"1329 Gertrude St; Sample Stanchion", "1332 Kenalan Dr",
"13705 Shoal Summit Dr", "13782 Rosecroft Way", "14254 Breezeway Place Silver sample stanchion",
"14300 Block Cuca St. ", "14462 Garden Trail", "14644 1/2 Old Creek Rd",
"1469 Riviera Shores St ", "14800 Stone Bridge Pkwy", "1500 Wueste Rd, Chula Vista CA",
"15022 Avenida Venusto", "15625 New Park Terrace", "15855 Turtleback Rd",
"1761 Petra Dr", "17696 Montero Rd", "17910 Avenida Cordillera",
"1808 Sea Star Way (Keyless Hose Bib on the enclosed backflow Preventer Cage)",
"1840 Quiveira Way", "18402 West Bernardo Dr. Stantion at a community Park",
"1848 Manzana Way; Sample Stanchion", "1880 Smythe Ave; Sample Stanchion",
"2023 Haller St.", "2110 Via Casa Alta @ a Fire Station",
"2305 1/2 Historic Decatur Rd", "2360 Beryl St; Sample Stanchion",
"2433 Denver St; Public School/Sample Stanchion", "2693 Melbourne Dr.",
"2787 Alta View Drive", "2850 Wasp Way", "2883 Keen Dr & Parkside Ave",
"300 BLK of Rosecrans Sample Stanchion", "3250 Camino Del Rio North; Sample Stanchion",
"3387 Kearny Villa Lane", "3550 Dunhill St", "3945 Alameda Dr; Sample Box",
"4202 N.Harbor Dr & W.Spanish Landing Dr.", "4274 Campus Point Ct",
"4393 Redworks Drwy (Behind Health Care Training)", "4455 Murphy Canyon Rd; Sample Stanchion",
"45th St/Imperial Ave; Sample Stanchion", "4605 Vandever Ave; (W.End or Public Park)",
"4610 Pacific Riviera Way", "4711 Seda Dr; (Between Via Dominique & Renovo Way)",
"480 S. Meadowbrook Dr", "4929 Catoctin Dr Sample Stanchion",
"4948 1/2 Carbine way", "4949 Pacifica Dr; Sample Box", "5183 Arvinels Ave.",
"5285 Setting Sun Way", "5368 Topsail Dr", "54551/2 Oberlin Dr",
"5485 Adobe Falls Rd; Sample Stanchion", "5552 Gala Avenue",
"5790 Chelsea Ave", "5840 Ravenswood Rd;", "6070 Division St",
"6200 Calle Mariselda", "6429 Glidden St; Sample Stanchion",
"6475 Antigua", "6541 Broadway", "6542 Reflection Dr", "6669 Linda Lane",
"6831 Monte Verde Dr", "7228 Wembley St", "7260 Barker Way",
"7474 Charmant Dr. Sample Stanchion", "775 Cornish Dr", "7928 Wing Span Dr",
"8441 New Salem St @ Fire Station", "8455 Westway Dr", "8555 1/2 Run of the Knolls Rd",
"8555 Ruette Monte Carlo", "8571 Highwood Drive", "8709 Lake Athabaska Way",
"9151 Rehco Rd; Sample Stanchion", "9440 Carroll Park Dr",
"9604 Babauta Rd", "9896 Olson Dr; ", "9930 Aviary Drive",
"9th Ave & University Ave @ Fire Station", "Acorn St & 62nd S t@ Fire Station",
"Across from 11705 Semillon Blvd.", "Across from 11810 Trail Crest Dr",
"Across from 12241 Camino Del Sur", "Across from 1565 Calle De Cinco",
"Across from 1782 Newton Ave ", "Across from 3750 Torrey View Ct ",
"Across from 5105 Soledad Rd.", "Across from 6236 Wenrich Dr., in front of community park",
"Across from 6619 Cibola Rd (Infront of a Park)", "Across from 8415 El Paseo Grande",
"Adams & Marlborough", "Avenida De Las Vistas / Vista San Rafael",
"Between Reedley and Drakewood on open space area", "Brookline & Date",
"Camto Mar De Plata & Camto Fortaleza", "Carmel Park Dr/Del Mar Glen; Public School",
"Coast BL South/Eads Ave; Sample Stanchion", "Dawes St & Archer St. (SE corner)",
"East Park Ave/San Ysidro Blvd; Sample Stanchion", "El Amigo Rd & Durango Dr",
"Escala Dr & Camberwell Lane ", "Firethorn St/Palm Ave; Sample Stanchion",
"Greenberg Way & Ganso Corte @ backflow preventer", "Haines St @ Felspar St.",
"Herrick St & 65th St", "Hillpointe Row & Carriage Dale Row",
"Idlewild way & Hidalgo Ave; @ Public School", "Jamacha Rd and 68th St. (SE corner near playground of Boys Club)",
"John J. Hopkins & General Atomic", "La Cuenta Dr & Tierrasanta Blvd @ Fire station",
"Meadowdale Lane & Walnutdale St", "MT. Abernathy Ave & Chateau Dr @ Library",
"Nob Hill Condos (10815)", "Ocean View Hills Pkwy and Sea Drift Dr.",
"Old Creek Rd and Whispering Ridge", "Old Quarry Rd @ Questor Pl",
"Oviedo st & Black Mtn Rd", "Pacifica Dr and Soledad Mtn Road",
"Palabra Circle", "Pomerado Rd & Grandee Place", "Rancho Del Sol Way & Rancho Del Azalea Way",
"Rancho Hills Dr/Reo Dr; @ Library/Sample Stanchion", "Ridgegate Row & Abbotswoods",
"Rondel CT & Tuxedo Rd; @ Public Park", "Salmon River & Fairgrove Ln @ the Library",
"Scripps Ranch wy & Spencerport (SW corner)", "Upas & Richmond",
"Via Campestre & Camto Punta Arenas ", "Via Cortina/Via Aprilia Sample Stanchion",
"Voltaire St/Ebers St; @ a Fire Station Sample Stanchion"
), class = "factor"), latitude = c(32.72865278, 32.93433056,
32.73386667, 32.70124722, 32.71269722, 32.70344444, 32.85918889,
32.74886667, 32.70785556, 32.9694, 32.84578333, 32.55273333,
32.98311111, 32.8089, 32.80038611, 32.75951667, 32.77602778,
32.93468056, 32.81170556, 32.940875, 32.90312222, 32.81121111,
32.80205833, 32.56377222, 32.78762222, 32.859875, 32.72652222,
32.72427778, 32.7208, 32.588625, 32.81735556, 32.748825,
32.94041944, 32.57251667, 32.67250556, 32.7875, 32.72874444,
32.70399167, 32.77695833, 32.77258889, 32.831775, 32.78661111,
32.93649444, 32.57158056, 32.98451667, 32.86192778, 32.81,
32.72560556, 32.81157778, 32.78141389, 32.92097222, 32.88936111,
32.96632778, 32.89150278, 32.95636389, 32.90968611, 32.94198611,
32.93474167, 32.96488889, 32.67034444, 32.67575, 32.55910278,
32.58387778, 32.93180556, 32.81846111, 32.86541389, 32.79296944,
32.82497778, 32.98470556, 32.79987222, 32.74857222, 32.72351944,
32.74107222, 32.71044444, 32.69445833, 32.76293611, 32.56473056,
32.68731944, 32.57033889, 32.79343056, 32.82235278, 32.84008333,
32.83207778, 32.83044444, 32.58345556, 32.68537778, 32.82041944,
32.82057222, 32.83556389, 32.81933611, 32.88749167, 32.88583611,
32.89457222, 32.88754444, 32.95062222, 32.95101944, 32.945825,
32.697675, 32.71114722, 32.71578333, 32.92427222, 32.91565556,
32.80561389, 32.76067222, 32.76760278, 32.78936667, 33.01172778,
33.01764722, 32.57711944, 32.81230556, 32.80676944, 32.94228611,
32.96903889, 32.94007222, 32.92258889, 32.81903611, 33.01915556,
32.93796389, 32.82417222, 32.83672778, 33.04518056, 32.95783611,
33.04235, 32.93946111, 32.80863056, 32.80907222, 32.90321667,
33.02531944, 32.92674444, 32.93612778, 32.91596389, 32.82606667,
32.81323889, 32.98314167, 32.99166944, 32.96886667, 32.97400278,
33.00532222, 32.79916111, 32.83901667, 32.92419722, 32.78458889,
32.80684722, 32.99057222, 33.00098333, 32.90753889, 32.92449167,
32.93194444, 32.9062, 32.96578333, 32.97615833, 32.92568056,
32.9238, 32.92226944, 32.907125, 32.92566389, 32.60828611
), longitude = c(-117.222875, -117.2526889, -117.2170722,
-117.1479972, -117.1530083, -117.1019611, -117.2554722, -117.2417444,
-117.238925, -117.2379722, -117.2776861, -117.0441611, -117.2463472,
-117.2286806, -117.2430083, -117.2335972, -117.1790361, -117.2479056,
-117.2540889, -117.2294861, -117.2293306, -117.2225917, -117.0817972,
-117.0494694, -117.0956, -117.2499944, -117.1143833, -117.1183889,
-117.2538778, -117.0149556, -117.2726139, -117.1837944, -117.25775,
-117.0489528, -117.0612583, -117.2036889, -117.2105111, -117.0980861,
-117.1255056, -117.2017528, -117.23455, -117.1288722, -117.243575,
-117.0377194, -117.2441333, -117.2500806, -117.0970944, -117.2445722,
-117.2400694, -117.0809833, -117.2336639, -117.172325, -117.2141306,
-117.1996917, -117.2300222, -117.2005444, -117.151625, -117.2265778,
-117.1783417, -117.0480139, -117.0431056, -117.0409056, -117.0394861,
-117.2016528, -117.2635389, -117.2282056, -117.10775, -117.119125,
-117.1638333, -117.0699167, -117.1564556, -117.0914444, -117.1511,
-117.0510722, -117.0677444, -117.1063861, -117.0332083, -117.0237556,
-117.03535, -117.1249222, -117.1751444, -117.1750583, -117.2207472,
-117.238125, -117.0141111, -117.0560667, -117.2334111, -117.0986222,
-117.096575, -117.2471917, -117.1740917, -117.1949556, -117.23975,
-117.2238417, -117.2531528, -117.1362083, -117.1157, -117.0260417,
-117.0579806, -117.0570111, -117.1482222, -117.1421389, -117.1534833,
-117.0635778, -117.05915, -117.0681972, -117.0601222, -117.0737611,
-117.0230361, -117.0481472, -117.0543778, -117.1300889, -117.13665,
-117.1162444, -117.1120917, -117.2408944, -117.1454222, -117.1209444,
-117.0796167, -117.0904083, -117.0638194, -117.1218611, -117.0514444,
-117.07415, -117.0137722, -117.0460056, -117.1009028, -117.0527139,
-117.090625, -117.0906389, -117.1088111, -117.0780972, -117.0177694,
-117.0736861, -117.0678139, -117.1280722, -117.0958806, -117.08775,
-117.0100583, -117.2504306, -117.0419917, -117.0528667, -117.02845,
-117.1361972, -117.0791806, -117.0841611, -117.0316556, -117.1046278,
-117.0649528, -117.0762556, -117.0776639, -117.0257833, -117.0997528,
-117.07655, -117.0615139, -117.0201, -116.9323417), frequency_sampled = structure(c(3L,
3L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
2L, 3L, 2L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 3L, 3L,
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 2L,
3L, 3L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 2L,
2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 2L, 3L, 3L, 2L,
3L, 3L, 3L, 3L, 3L, 1L), .Label = c("Daily", "Monthly", "Weekly"
), class = "factor")), .Names = c("site_ID", "pressure_zone_name",
"pressure_zone_elevation", "connections_count", "location_description",
"latitude", "longitude", "frequency_sampled"), class = "data.frame", row.names = c(NA,
-157L))对updateSelectInput的调用在那里，因此selectInput只具有与当前选定区域相关联的选择。如果我选择一个有多个位置的区域，它可以正常工作。但是，如果我选择的区域只有一个位置，这是大多数区域，我会在控制台中得到一个警告：
Warning in is.na(e2) :
is.na() applied to non-(list or vector) of type 'NULL'我的第二个selectInput有一次选择，上面写着"location_description“
不知道我哪里出了问题..。
回答 2
Stack Overflow用户
回答已采纳
发布于 2017-04-20 05:43:16
您没有任何称为input$location_description的输入。
它应该是
plotData <- subset(zones, pressure_zone_name==input$zones & location_description==input$sampleLocation)
而不是
plotData <- subset(zones, pressure_zone_name==input$zones & location_description==input$location_description)
编辑
很抱歉，忽略了question.Since availablelocations的要点是data.frame，您的updateSelectInput应该如下所示：
updateSelectInput(session, "sampleLocation", choices = availablelocations[,1])希望能帮上忙！
Stack Overflow用户
发布于 2017-04-20 06:47:54
通常，当您在observe中使用shiny时，您需要执行以下操作：
- 在初始化时排除任何可能虚假的值。
例如，您可以这样做：
observe({
if(length( input$zones ) == 0 ) return()
...上面这样的内容允许在没有选择selectInput的情况下避免运行代码。您也可以预选一个值(但这不在您的代码中)。
- 确保在执行代码时，不会有其他反应中断它。
这是一个比较先进的概念。如果您以一定的值开始处理，您希望确保它不会在中途更改。您需要用isolate({ your_code })包装代码。
要真正解决上述所有问题(以及更多的问题)，闪亮现在有了observeEvent (和eventReactive)函数，它将以上所有内容都放在一起。
这是一本闪亮的参考手册的摘录：
observeEvent(eventExpr, handlerExpr, event.env = parent.frame(),
event.quoted = FALSE, handler.env = parent.frame(),
handler.quoted = FALSE, label = NULL, suspended = FALSE, priority = 0,
domain = getDefaultReactiveDomain(), autoDestroy = TRUE,
ignoreNULL = TRUE, ignoreInit = FALSE, once = FALSE)所以，在你的例子中，这会变成：
observeEvent(input$zones, {
availablelocations <- zoneData %>%
filter(pressure_zone_name==input$zones) %>% select(location_description)
updateSelectInput(session, "sampleLocation", choices =
availablelocations)
})例如，您可以看到，如果ignoreNULL = TRUE为NULL，参数input$zones将阻止input$zones运行。此外，{}中的所有代码都自然地封装在隐式isolate下。
上面的内容可以解决您的问题，但不幸的是，我没有测试您的代码(不能简单地访问数据)，所以如果您看到错误仍然存在，请告诉我在哪里可以找到与您类似的数据，我将确保发布一个完整的功能版本。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43510627
复制相关文章
相似问题
腾讯云开发者
