Again reactiveFileReader - r

Question

Let's say get_line() is reactive, returns an integer, e.g.:
get_line <- reactive({
i=1
getline=0
while (getline==0 & i<=100) {
x <- readLines(input$StoreDestination , n =100)[i]
x <- stringr::str_extract(x, pattern = "t1=[0-9]")
if(!is.na(x)) {getline=i}
i=i+1
}
return(getline)
})
Next calling reactiveFileReader such that skip parameter of the read.table function is reactive, e.g.:
df_source <- reactiveFileReader(
intervalMillis = 10000,
session=session,
filePath = reactive({ input$StoreDestination }),
readFunc = read.table,
skip = get_line(), ### with () as we see :)
check.names = F,
sep = ";")
Getting Error:
Warning: Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context.
• You tried to do something that can only be done from inside a reactive consumer.
tried to sort of explicitly state that it is a reactive:
df_source <- reactiveFileReader(
intervalMillis = 10000,
session=session,
filePath = reactive({ input$StoreDestination }),
readFunc = read.table,
skip = reactive({ get_line() }),
check.names = F,
sep = ";")
Getting Error:
Warning: Error in >: comparison (6) is possible only for atomic and list types
any try such that df_source <- reactive({ reactiveFileReader( ..., skip = get_line(),...)})
Getting Error:
Warning: Error in as.data.frame.default: cannot coerce class ‘c("reactiveExpr", "reactive", "function")’ to a data.frame
However if we use, fixed value for the skip, everything is working. e.g.:
df_source <- reactiveFileReader(
intervalMillis = 10000,
session=session,
filePath = reactive({ input$StoreDestination }),
readFunc = read.table,
skip = 4,
check.names = F,
sep = ";")