How to Link selected cluster in shiny app-CodePudding

The

Now, I'm trying to do this in Shiny, but without specifying the coordinates of the properties like I did in the example above. In this sense, I created a selecInput to select which cluster I want to see the route. How to adjust this in this code below?

This question can help:

CodePudding user response：

If k represents the cluster number that you are targeting, and cluster is a column in your dataset (I don't understand why you have df and df1, and then row bind them together), then you can simply do something like this to limit the input to the google_directions() call to only be the rows that correspond to cluster k

data_table1<-data_table[data_table$cluster==k,c(2:3)]

Then, in the call to google_directions(), you would do this (notice that I'm now calling row 1 and row 2 (instead of row 1 and row 3 in your example), because the filtering on data_table$cluster==k above has ensured that data_table1 has only the two rows associated with cluster k

df2<-google_directions( origin = data_table1[1,], destination = data_table1[2,], mode = "driving")

Finally, I'm not sure you want to return all of data_table. Perhaps you adjust so that it returns only data_table1 (i.e. the subset wih your cluster of interest)?:

return(list( "Plot1" = plot1, "Data" = data_table1 ))