Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit c05efd19 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[openalex] make search act similar to the one on openalex web 

See #490
parent 397b19a5
Pipeline #7727 passed with stages
          in 59 minutes and 28 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 8 additions and 2 deletions
          src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
          View file @ c05efd19
          ...@@ -28,8 +28,14 @@ get :: Text ...@@ -28,8 +28,14 @@ get :: Text
          -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ())) -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ()))
          get _email q lang mLimit = do get _email q lang mLimit = do
          let limit = getLimit $ fromMaybe 1000 mLimit let limit = getLimit $ fromMaybe 1000 mLimit
          let mFilter = (\l -> "language:" <> iso639ToText l) <$> lang let filters =
          eRes <- OA.fetchWorksC Nothing mFilter $ Just $ Corpus.getRawQuery q [
          -- see https://gitlab.iscpif.fr/gargantext/haskell-gargantext/issues/490
          -- see https://openalex.org/works?page=1&filter=title_and_abstract.search:brain:hawai
          Just ("title_and_abstract.search:" <> Corpus.getRawQuery q)
          , (\l -> "language:" <> iso639ToText l) <$> lang
          ]
          eRes <- OA.fetchWorksC Nothing (Just $ T.intercalate "," $ catMaybes filters) (Just $ Corpus.getRawQuery q)
          pure $ (\(len, docsC) -> (len, docsC .| takeC limit .| mapC toDoc)) <$> eRes pure $ (\(len, docsC) -> (len, docsC .| takeC limit .| mapC toDoc)) <$> eRes
          toDoc :: OA.Work -> HyperdataDocument toDoc :: OA.Work -> HyperdataDocument
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment