Power Query: invocar una pregunta avanzada de función personalizada

[Syndicate_Admin]

Tengo una configuración de consulta para invocar una función personalizada que usa la llamada a la API de Mapas de Bing para recuperar la distancia y el tiempo de conducción a una lista de direcciones. Mi conjunto de datos actualmente solo tiene 500 filas, por lo que la función se usa 500 veces cada vez que actualizo los datos. Esto tarda unos 15 minutos para que la consulta se ejecute en las 500 filas.

Mi pregunta, ¿hay alguna manera de confirmar los datos de distancia y tiempo de conducción en la consulta para que la próxima vez que actualice los datos vea que ya recuperó esos datos y los ignore esta vez? Realmente solo me gustaría que la llamada a la función personalizada se ejecutara con filas de datos recién agregadas e ignorara todas las filas existentes.

Estaba pensando en el peor de los casos, todos los datos se guardan en un archivo de Excel, por lo que después de ejecutar la función la primera vez, podría confirmar manualmente los datos de la API en el archivo original de Excel y configurar una segunda consulta que solo se ejecuta si faltan los datos. Preferiría no tener que confirmar manualmente los datos en el archivo de Excel. ¿Quizás la respuesta es automatizarlo de alguna manera para actualizar el archivo de Excel? Si eso parece tener sentido para alguien, ¿algún consejo sobre cómo confirmar esos datos?

[Syndicate_Admin · Accepted solution]

Utilicé el siguiente video para crear un visual de R que exporta el archivo de Excel y sobrescribe el origen. Se utiliza una consulta para el panel principal. Una segunda consulta crea el archivo de Excel duplicado que se exporta una vez finalizada la llamada a la API.

Power BI - Escribir datos en Excel (en varias pestañas) - Vídeo de Bing

library(openxlsx)
dataset2 = dataset[,c("Name","Address","Notes","Website","TravelDistance","TravelDuration","TravelDurationTraffic","Latitude","Longitude")]
tabs = list("Sheet 1" = dataset2)
hs = createStyle(fontSize=11, fontColour="#000000",halign="center",fgFill="#CCCCCC")
if(dataset$Selection[1]=="Write") {
    write.xlsx(tabs, file ="C:/Users/User/Data/Data.xlsx", colWidths = "12", headerStyle = hs)
    openXL(file = "C:/Users/User/Data/Data.xlsx") }
plot(1,1)